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REM € 


IDENTIFICATION 


“eee e+ eee enee 


PRODUCT CODE: AC -T783A-MC 

PRODUCT NAME : CZTKIAO TK25 DATA RELIABILITY TEST 
PRODUCT DATE: 15 - MARCH - 1984 

MAINTAINER: MAGTAPE DIAGNOSTIC ENGINEERING 


AUTHOR ; ROBERT F. WERY/JACK RICHARDSON/TERRENCF REILLY 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1984 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PoP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 


SEQ 0001 
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USER'S GUIDE 


GENERAL INFORMATION 
PROGRAM ABSTRACT 
FUNCTIONAL DESCRIPTION 
STRUCTURE OF PROGRAM 
MEMORY MAP 
vag > Hi INF ORMAT ION 


sc 
ERROR RECOVERY 
WRITE ERROR RECOVERY 
Saf ak ge be eB SELECTIVE WRITE ERROR 
RECOVERY ALGORITHM 
2 OPERATIONAL WRITE -ERROR -RECOVERY ALGORITHM 
EARLY WARNING WRITE ERRORS 
DIAGNOSTIC TIMING ADJUSTMENT 
SYSTEM REQUIREMENTS 
HARDWARE REQUIREMENTS 
SOFTWARE REQUIREMENTS 
RELATED DOCUMENTS AND STANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 
ASSUMP TIONS 
DIAGNOSTIC HISTORY 
OPERATING INSTRUCTIONS 
HARDWARE PARAMETERS 
SOFTWARE PARAMETERS 
CLEAR COUNTERS 
RESET RANOOM VARIABLES 
PRINT SOFT ERRORS 
INHIBIT RECOVERY 
BAD TAPE SPOT DETECTION 
DISABLE INTERRUPTS 
INHIBIT RFC ERROR REPORTS 
CONTROLLER RAM DUMP 
ENABLE EARLY WARNING MESSAGES 
CHANGE CMD SEQUENCE 
COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 
DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE 
EXAMPLES OF SOFTWARE DIALOGUE 
BASIC FUNCTION AND DATA RELIABILITY WITH ALL 
ERROR REPORTING ENABLED 
TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC 
FUNCTIONS. 
TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA 
RELIABILITY 
EXECUTION TIMES 
SYSTEM CONF IGURATION 
TEST EXECUTION TIMES 
ERROR INFORMATION 
ERROR REPORTING 
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SEQ 0002 
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SEQ 0003 


ERROR 1 - COMMAND PACKET ADDRESS NOT ON A 


MODULO 4 BOUNDRY: 

ERROR 2 - TK25 NOT READY: 

ERROR 3 - NO RESPONSE ERROR: 

ERROR 4 - NO INTERRUPT ERROR: 

SPECIAL CONDITION ERRORS 
ERROR 5S - TERMINATION class CODE 0, UNDEFINED 
SPECIAL CONDITION 
ERROR 6 - TERMINATION CLASS CODE 1, ATTENTION 
CONDITION 
ERROR 7 - TERMINATION CLASS CODE 2, TAPE 
STATUS ALERT 
ge - TERMINATION CLASS CODE 3, FUNCTION 
ERROR 9 - TERMINATION CLASS CODE 4, 
RECOVERABLE ERROR 
ERROR 10 - TERMINATION CLASS CODE 5, 
RECOVERABLE ERROR 
ERROR 11 - TERMINATION CLASS CODE 6, 
UNRECOVERABLE ERROR 
ERROR 12 - TERMINATION CLASS CODE 7, FATAL 
SUBSYSTEM ERROR 

ERROR 13 - RFC NON-ZERO ERROR: 

ERROR 14 - RETRY LIMIT EXCEEDED: 

ERROR 15 - TOO MANY INTERRUPTS: 

ERROR 16 - CAPSTAN RUNAWAY: 

ERROR 17 - DATA COMPARE ERROR: 


ST 5S - READ COMPATABILITY/READ UTILITY. 


ERROR HALTS 
PERFORMANCE REPORT 
TEST SUMMARIES 
TEST 1 - BASIC FUNCTIONS. 
TEST 2 - DATA RELIABILITY. 
TEST 3 - WRITE ANDO READ STREAMING TEST. 
TEST 4 - WRITE COMPATABILITY/WRITE UTILITY. 


TE 


ST 6 - EXECUTE OPERATOR SELECTED COMMAND 


SEQUENCE. 


DEVI 
GENE 


CE ee ION TABLES 


BUS INTERFACE SPECIFICATIONS 


BI 


T DEFINITIONS FOR TK25 REGISTERS 
TK25 REGISTER SUMMARY 
TK25 STATUS REGISTER (TSSR) 

TSSR READ ONLY 

TSSR WRITE ONLY 
EXTENDED STATUS REGISTER 0 (XSTATO) 
EXTENDED STATUS REGISTER 1 (XSTAT1) 
EXTENDED STATUS REGISTER 2 (XSTAT2) 
EXTENDED STATUS REGISTER 3 (XSTATS) 
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GLOSSARY 


APT 
BYTE/RECORD/FILE COUNT 
BRF 


CMD 
COMMAND PACKET 
CMOPKT 


EXTENDED STATUS 
MESSAGE PACKET 


PC 
PSW 
RESIDUAL FRAME COUNT 
RFC 


SPECIAL CONDITION 
SPEC COND 


TERMINATION CLASS CODE 
tcc 


TSBA 
TSOB 
TSSR 
xsTo 
xSTl 
xST2 


El 


AUTOMATED COMPUTER TEST SYSTEM 

AUTOMATED PRODUCT TEST SYSTEM 

IS STORED IN THE 4TH WORD OF THE COMMAND PACKET 
AND IT'S USE BY THE TK25 DEPENDS ON THE TYPE OF 
COMMAND. 

TK2S COMMAND 

FOUR WORD PACKET IN THE CPU MEMORY WHICH 
CONTAINS ALL INFORMATION NEEDED BY THE TK25 TO 
EXECUTE A COMMAND. 

FOUR WORDS OF TK25 STATUS WHICH ARE TRANSFERRED 
AS PART OF THE MESSAGE PACKET AT THE COMPLETION 
OF A COMMAND. 

SEVEN WORD PACKET IN THE CPU MEMORY INTO WHICH 
THE TK25 STORES STATUS AT THE COMPLETION OF A 
COMMAND . 

PROGRAM COUNTER 

PROCESSOR STATUS WORD 

THIS COUNT IS PART OF THE MESSAGE PACKET AND 
CONTAINS THE NUMBER OF eee ee 
to ay TO BE PROCESSED AT THE COMPLETION OF A 


TSS4 BIT1S. WHEN SET, INDICATES THAT THE LAST 
COMMAND DID NOT COMPLETE WITHOUT INCIDENT. 


THREE BIT CODE IN THE TSSR WHICH INDICATES THE 
THE TYPE OF COMMAND TERMINATION. 


TAPE SYSTEM BUS ADDRESS REGISTER. 
TAPE SYSTE™ DATA BUFFER REGISTER. 
TAPE SYSTEM STATUS REGISTER. 
EXTENDED *T4!_~ SEGISTER O 
EXTENDED 5°°3'.". SEGISTER 1 
EXTENDED STATUS REGISTER 2 


SEQ 0004 
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SEQ 0005 


211 xST3 EXTENDED STATUS REGISTER 3 


213 XXDP + XXDP+ IS A “CATCH-ALL” NAME FOR A_ GROUP OF 
214 POP-11 OIAGNOSTIC PACKAGES AVAILABLE ON 
215 MULTIMEDIA, 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.1.1 FUNCTIONAL DESCRIPTION - 

THIS PROGRAM CAN BE USED AS A_ BASIC FUNCTION TEST, A DATA 


RELIABILITY TEST, A COMPATABILITY TEST, OR TO EXECUTE A SEQUENCE 
OF OPERATOR SELECTED COMMANDS. 


1.1.2 STRUCTURE OF PROGRAM - 
THIS DIAGNOSTIC IS A SINGLE PROGRAM FROM THE STANDPOINT OF THE 


DIAGNOSTIC USER, BUT IT USES A CONTROL MODULE RELEASED 
INDEPENDENTLY AS A DIAGNCSTIC SUPERVISOR. 


1.1.3 MEMORY MAP - 


Oo! ‘ 
: VECTOR H 
: AREA ' 
: : 
400 !-------------- H 
] > 
§ STACK ’ 
: ' 
po 8 eee ee ee ' 
: : 
DIAGNOSTIC : 
J 
32000 !-------------- : 
' FREE MEMORY ! 
41000 !-------------- : 


’ t 
! OIAGNOSTIC ! 
! SUPERVISOR : 
a 


oe eee eee : 


FREE MEMORY SPACE FOR THE WRITE/READ BUFFERS IS ALLOCATED BY THE 
SUPERVISOR ON REQUEST OR CHOSEN BY THE PROGRAMMER TO RESIDE 
BETWEEN THE DIAGNOSTIC AND THE SUPERVISOR. 


SEQ 0006 
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1.1.4 DIAGNOSTIC INFORMATION - 


1.1.4.1 SCOPE - 

THIS DIAGNOSTIC CAN TEST UP TO FOUR (4) UNITS IN A ROUND ROBIN 
FASHION. THE FOUR UNITS ARE ASSIGNED LOGICAL UNIT NUMBERS O - 3 
BY THE DIAGNOSTIC. 


THERE ARE 6 TESTS IN THIS PROGRAM: 


TEST 1 - BASIC FUNCTIONS. 

TEST 2 - DATA RELIABILITY. 

TEST 3 - WRITE AND READ STREAMING TEST. 

TEST 4 - WRITE COMPATABILITY/WRITE UTILITY. 
TEST S - READ COMPATABILITY/READ UTILITY. 
TEST 6 - OPERATOR SELECTED SEQUENCE UTILITY. 


1.1.4.2 ERROR RECOVERY - 

ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK 
ERRORS UNLESS RECOVERY IS INHIBITED BY THE OPERATOR. THE READ 
FORWARD/READ REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTION 


AND 8 IN THE OPPOSITE DIRECTION). FOR MORE INFORMATION ON ERROR 
RECOVERY PROCEDURES, SEE SECTION 3.0 CERROR INFORMATION). 


1.1.4.3 WRITE ERROR RECOVERY - 
THERE ARE 2 DISTINCT, SELECTABLE WRITE-FRROR-RECOVERY ALGORITHMS: 


1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 
2. OPERATIONAL ALGORITHM 


BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO DISCERN 
MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 


TO SELECT THE SECOND ALGORITHM; 


ANSWER ‘Y‘' TO CHANGE SW (L) ? 
ANSWER ‘N‘' TO BAD TAPE SPOT DETECTION (L) Y ? 


WHEN ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT 
ASKED AND BOTH ALGORITHMS ARE BYPASSED. 


SEQ 0007 
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1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE ERROR RECOVERY 
ALGORITHM - 


SCOPE 


THE ALGORITHM DISCERNS MEDIA RELATED WRITE ERRORS FROM 
OPERATIONAL ONES. 


ALGORITHM 


A WRITE RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR 
SUBROUTINE UPON DETECTION OF A RECOVERABLE WRITE ERROR. THE 
WRITE RETRY SUBROUTINE REWRITES THE RECORD IN THE SAME SPOT ON 
TAPE FOUR TIMES. IF ALL 4 REPEATS ARE GOOD, THE RECORD IS 
fost narake taaeen AND A RECOVERABLE WRITE ERROR IS LOGGED AT 


IF ANY OF THE 4 REPEATS FAIL, THE BAD RECORD IS ERASED, SUSPECTED 
BAD SPOT AT THAT RECORD NUMBER IS LOGGED, AND THE RECORD IS 
RETRIED AGAIN 3 INCHES FURTHER DOWN TAPE. THIS IS DONE UP TO 4 
TIMES, UP TO 4 REPEATS EACH. IF THE RECORD CANNOT BE WRITTEN 
WITHOUT RECOVERABLE ERRORS AFTER 4 RETRIES, THE RECORD IS ERASED 
AND A BAD SPOT DETECTED ON RETRY FAILURE IS REPORTED. THE 
RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WRITE 
RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIES, UNTIL 
THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGFO. 


TWO HUNDRED FIFTY (250) BAD SPOTS MAXIMUM ARE ALLOWED PER TAPE 
PER PASS. WHEN 250 BAD SPOTS HAVE BEEN LOGGED, THE TAPE IS 
CONSIDERED DEFECTIVE. A BAD TAPE OVERFLOW MESSAGE WILL BE 
PRINTED AND THE UNIT IS REWOUND, THEN DROPPED. 


DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL 
TAPE POSITION OPERATIONS. IF A POSITION ERROR STATUS IS DETECTED 
DURING THOSE OPERATIONS, THEN THE RECOVERY ATTEMPT IS ABORTED AND 
AN APPROPRIATE UNRECOVERABLE ERROR MESSAGE IS PRINTED. THE UNIT 
IS THEN DROPPED. 


RECORDS WHICH WERE NOT WRITTEN WITHOUT ERROR WILL BE ERASED. 
THIS IS SO THAT ALL RECORDS LEFT ON TAPE ARE GOOD WRITTEN 
RECORDS. BAD SPOTS ARE ERASED, WITH ERASE GAPS FROM 3 TO 12 
INCHES PER RETRY GROUP, 


IF NO BAD SPOTS WERE PREVIOUSLY DETECTED, UP TO 20 FEET OF ERASE 
GAP COULD RESULT WHEN RETRYING TO RECOVER A SINGLE RECORD. THAT 
LONG STRETCH OF BAD TAPE WOULD THEN BE FLAGGED WITH 20 BAD SPOTS 
AT THE SAME RECORD NUMBER. 


BAD SPOTS REPORTS 


SEQ 0008 
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IF THE PRINT OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON 
TAPE ARE IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECORDS 
ARE ERASED UNTIL RECOVERED, THE BAD SPOTS ACTUALLY PRECEDE THE 
RECORD NUMBER THAT IDENTIFIES THEM. THE NUMBER OF REPEATS AND 
RETRIES ATTEMPTED IS PRINTED, FROM WHICH THE LENGTH OF ERASE GAPS 
CAN BE DETERMINED CAPPROXIMATELY 3 INCHES PER RETRY). 


THE STATISTICAL REPORT PRINTED AT THE END OF TEST 2 OR UPON A 
“PRINT” REQUEST, CONTAINS A SUMMARY OF THE BAD SPOTS LOGGED ON 
THE CURRENT TAPE PASS. IN THAT REPORT, ALL COUNTS ARE CUMULATIVE 
FROM PASS TO PASS, EXCEPT FOR THE NUMBER OF BAD SPOTS: IT 
RELATES TO A “TAPE PASS” ONLY. FOR THIS PURPOSE, A “TAPE PASS” 
IS A WRITE PASS FROM B0T TO EOT, OR FROM BOT TO WHERE THE 
DIAGNOSTIC IS HALTED BEFORE REACHING EOT. A PASS IS DEFINED Br 
THE SUPERVISOR AS A RUN THROUGH ALL THE TESTS REQUESTED ON ALL 
UNITS SELECTED. THESE PASSES ARE IDENTIFIED AS “PASS” AND “EOP”. 


THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A 
we COUNT OF HOW MANY TIMES THE GROUP CF 4 RETRIES HAS BEEN 
L . 


THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 
AND REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST. PER 
TAPE PASS, THE NUMBER OF WRITE RETRIES EQUALS THE SUM OF THE 
NUMBER OF RECOVERABLE WRITE ERRORS AND BAD SPOTS. 


TO CLEAR CUMULATIVE COUNTS, ANSWER ‘vy’ TO: CLEAR COUNTERS (L) Y 
?. THE BAD TAPE SPOTS COUNT IS CLEARED WHEN WRITING FROM BOT. 


IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD . 


COUNT IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT 
RESET COUNT. 


SINCE ALL WRITTEN RECORDS ULTIMATELY ARE KNOWN TO BE GOOD, THE 
READ ERRORS CAN BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT 
ee rami OR CONTAMINANTS ON TAPE AS OPPOSED 1T0 


THE SAME RECORDS MUST BE WRITTEN FROM TAPE PASS TO TAPE PASS FOR 
THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 


SEQ 0009 


K1 
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SEQ 0010 
424 
425 
426 
427 
428 EXAMPLE OF A TAPE PASS PRINT: 
429 
430 CZTKIA SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
431 RECOVERABLE ERROR 
432 WRT CMD FAILED - UNIT O- PASS: 1 RECORD: 6 
433 PREVIOUS CMD WAS WRT 
424 CMDPKT TSBA RFC TSSR TCC 
435 100205 002406 000000 100210 4 
436 026600 
437 
438 003107 
439 xSTO xST1L xsT2 xST3 
440 000350 000002 100400 000000 
441 SUSPECT BAD SPOT AFTER 1 RETRY, 2 REPEAT 
442 SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 
443 SUSPECT BAD SPOT AFTER 3 RETRY, 1 REPEAT 
444 SUSPECT BAD SPOT AFTER 4 RETRY, 3 REPEAT 
445 RETRY FAILED ON BAD SPOT...ERASED! 
446 SUSPECT BAD SPOT AFTER 1 RETRY, 1 REPEAT 
447 
448 CZTKIA SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
449 RECOVERABLE ERROR 
450 WRT CMD FAILED - UNIT O_ PASS: 1 RECORD:10210 
451 PREVIOUS CMD WAS WRT 
452 CMOPKT TSBA RFC TSSR TCC 
453 100205 002406 000000 100210 4 
454 026600 
455 000000 
456 004000 
457 xSTO xST1 xsST2 xST3 
458 000350 000002 100010 000000 
459 RECOVERED ON RETRY @ 1 
460 tc 
461 DR>PRI 
462 UNIT O PASS: 1 RECORD: 10210 
463 BYTES WRITTEN 0,272,279,691 
464 BYTES READ REV 0,301,123,654 
465 BYTES READ REV 0,301,120,381 
466 WRT ROR ROF 
467 RECOVERABLE ERRORS 1 (9) re) 
468 UNRECOVERABLE ERRORS 9) fe) te) 
ae WRITE RETRIES 3 
a 2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD ¢: 
6 6 
473 SPEC COND HARD FATAL COMPARE 
474 2 fe) fe) fe) 


475 DR> 


PARAMETER CODING 


MACRO M1200 21- 
\ 


Li 


MAR-84 16:45 PAGE 15 


THIS EXAMPLE SHOWS THAT RECORD 6 RECOVERED ON 2ND RETRY GROUP. 
THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS 5S 
AND 6. RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS. 
THREE WRITE GROUP RETRIES WERE ATTEMPTED, RESULTING IN ONE 
RECOVERABLE WRITE ERROR FROM RECORD 10210 AND TWO BAD SPOTS 
BETWEEN RECORDS 5S AND 6. 


1.1.4.3.2 OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM - 


WHEN THIS ALGORITHM IS SELECTED, THE TK25 WRITE RETRY COMMAND IS 
ISSUED UP TO 16 TIMES OR UNTIL THE RECORD IS RECOVERED. THE 
WRITE RETRY COMMAND CONSISTS OF A SPACE REVERSE OVER THE BAD 
RECORD, AN ERASE OF 3 INCHES OF TAPE AND A REWRITE OF THE RECORD. 
THAT COMPOSITE COMMAND DOES NOT DETECT BAD SPOTS ON TAPE. 
THEREFORE NO BAD TAPE SPOTS STATUS IS PRINTED. 


IF A RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, A 
RETRY LIMIT EXCEEDED ERROR IS FLAGGED AND THE UNIT IS DROPPED. 


1.1.4.4 EARLY WARNING WRITE ERRORS - 


SINCE THE TK25 DRIVE RECORDS IN A SERPENTINE MANNER, THE TAPE 
CARTRIDGE HAS PHYSICAL MARKERS AT EACH END OF THE TAPE. THE TK25 
CONTROLLER WILL NOT ALLOW THE WRITING OF DATA OVER THE AREA OF 
THESE “EARLY WARNING” MARKERS. THEREFORE, WHEN AN ATTEMPT IS 
MADE TO WRITE DATA AT THE END OF TRACK, A WRITE ERROR STATUS 
€TCC4) IS RETURNED WITH THE EARLY WARNING (EW) BIT SET. 


WHEN A WRITE ERROR OCCURS AND THE EARLY WARNING BIT IS SET IN 
XSTAT1, THE ERROR IS RETRIED IF ERROR RECOVERY IS ENABLED. THE 
ONLY METHOD OF RETRY USED FOR EARLY WARNING WRITE ERRORS IS T0 
SET THE RETRY MODIFIER ON THE ORIGINAL COMMAND AND TO REISSUE IT. 
IN ADDITION, EARLY WARNING WRITE ERRORS PRE NOT COUNTED IN ANY 
ERROR TALLIES. 


1.1.4.5 DIAGNOSTIC TIMING ADJUSTMENT - 


A NUMBER OF SUPERVISOR TIMING DELAYS MACROS, KNOWN AS WATCH DOG 
DELAYS, ARE CALLED Py THE DIAGNOSTIC TO WAIT FOR VARIOUS COMMANDS 
TO COMPLETE. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPAND 
INTO INLINE NESTED LOOPS. THE COUNT FOR THE OUTER LOOP COMES 
FROM THE VARIABLE ARGUMENT SUPPLIED BY THE DELAY CALLS. THE 
COUNT FOR THE INNER LOOP COMES FROM THE FIXED “HEADER” ELEMENT 
"L$DLY”. AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE 
DELAYS WILL VARY IN LENGTH WITH MEMORY SPEED. 


SEQ 0011 
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IF TIME- 


C.* OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE UNIT 


ARE EVIDENT, THE TIMINGS OF THE DIAGNOSTIC MAY BE ADJUSTED. THIS 
IS ACCOMPLISHED BY PATCHING THE FIXED DELAY ELEMENT “LSDLY”. 


1.2 SYSTEM REQUIREMENTS 
1.2.1 HARDWARE REQUIREMENTS - 


o oso ©@ 


POP-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA36,LA120,VT100,ETC. ) 
PROGRAM LOAD DEVICE 

TK25 DRIVE AND CONTROLLER 


1.2.2 SOFTWARE REQUIREMENTS - 


0 


DIAGNOSTIC SUPERVISOR 


1.3 RELATED DOCUMENTS AND STANDARDS 


oo eo 6 © 


XXDP+ USERS MANUAL MD -11-CHQUS 

POP-11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION 
PDP-11 DIAGNOSTIC SUPERVISOR PROGRAMMER'S GUIDE 

TK25 PROGRAMMING SPECIFICATION 

TK25 COMMAND PACKET SPECIFICATION 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


ORDER OF HOST CPU DIAGNOSTIC USAGE: 
1) FRONT END FUNCTIONAL PROGRAM - ALL TESTS. 
2) DATA RELIABILITY PROGRAM; 


SEQ 0012 
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SEQ 0013 


592 A) BASIC FUNCTION TEST. 
593 B) DATA RELIABILITY TEST. 


598 1.5 ASSUMPTIONS 


600 THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO 
601 BE WORKING PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE 
602 PROCESSOR, MEMORY, ETC., DOES NOT FUNCTION PROPERLY. 


606 1.6 DIAGNOSTIC HISTORY 
608 REVISION A - 15-MAR-84 - ORIGINAL RELEASE 


612 2.0 OPERATING INSTRUCTIONS 


614 FOR OPERATING INSTRUCTIONS, PLEASE SEE CHAPTER S OF XXDP+ 
6:5 OPERATOR'S MANUAL. 


619 2.1 HARDWARE PARAMETERS 


621 ON A “N” RESPONSE TO “CHANGE HW?", THE DIAGNOSTIC SHALL RUN 
622 ASSUMING THAT THERE IS ONE UNIT AT TSSR = 172522 WITH A VECTOR = 
4. 


625 ON A “Y" RESPONSE TO “CHANGE HW?” QUESTION,THEN THE FOLLOWING 
626 QUESTIONS WILL BE ASKED ON A START COMMAND. THE VALUE LOCATED TO 
627 THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT WILL BE 
628 TAKEN ON A CARRIAGE RETURN RESPONCE. 


630 TSSR ADDRESS (172522) ? 
632 VECTOR (224) ? 


634 THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING 
635 THE TESTS BY SETTING THE FLAG “ADR” ON A STA, RES OR [ON COMMAND. 
636 THE SO CALLED “AUTO DROP” CODE SHALL THEN BE EXEC’ O AFTER THE 
637 INIT CODE AND BEFORE THE HARDWARE TESTS ARE RUN THAT CODE FIRST 
638 TESTS THE ALDRESS OF THE TSSR(S). IF THERE IS NO RESPONSE, IT 
639 DROPS THE UNIT(S) IMMEDIATELY WITH THE FOLLOWING MESSAGE: 


641 BUS TRAP AT XXXXXX ( XXXXXX = TSSR AD ) 
442 INTERFACE BAD OR NOT SET TO ABOVE AD. 
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ON A RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT READY OR 
NOT ON-LINE ARE OROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL 
THEN BE RUN ON THE RESPONDING UNITS. 

If THE “ADR” FLAG IS NOT SET, THE READY AND OFF-LINE STATUS OF 
THE UNITS ARE CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OF TEN 
TO WARN THE OPERATOR OF UNITS THAT ARE NOT READY OR OFF-LINE. 
THESE UNITS SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME. 


2.2 SOFTWARE PARAMETERS 
RS OTS EO ETT? ifn Ie 
PROGRAM BEHAVES. 
CLEAR COUNTERS (L) Y ? 
RESET RANDOM VARIABLES (L) N ? 
MALT AFTER EACH CMO (L) N ? 
PRINT SOFT ERRORS (i) N ? 
INHIBIT RECOVERY (L) N ? 
BAD TAPE SPOT DETECT (1) ¥ ? 
DISABLE INTERRUPTS (i) N ? 
INHIBIT RFC ERROR REPORTS (L) N ? 
CONTRUL' FR RAM DUMP (L) N ? 
ENABLE EARLY WARNING MESSAGES (LL) N ? 
CHANGE CMD SEQUENCE (L) N ? 


If YOU ANSWER YES TO THIS QUESTION, ALL COUNTERS (ERROR COUNTS, 
— CONDITION COUNT, BYTES TRANSFERRED, ETC.) WILL BE SET TO 


SEQ 0014 
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2.2.2 RESET RANDOM VARIABLES - 


IF YOU REQUEST THAT THE RANDOM VARIABLES BE RESET, THESE 
VARIABLES WILL TAKE ON THEIR DEFAULT VALUES. 


2.2.3 PRINT SOFT ERRORS - 


THIS QUESTION WILL ALLOW YOU TO ENABLE OR DISABLE THE PRINTING OF 
RECOVERABLE ERROR REPORTS. IF YOU ARE ONLY INTERESTED IN THE 
SUMMARY OF ERRORS AND NOT THE INDIVIDUAL ERRORS, YOU SHOULD 
ANSWER (N) TO THIS QUESTION. 


2.2.4 INHIBIT RECOVERY - 


IF yYOU SO CHOOSE, YOU CAN INHIBIT ALL ERROR RECOVERY WITH THIS 
QUESTION. IF YOU ANSWER (CY) TO THIS QUESTION, THE FOLLOWING 
QUESTION WILL NOT BE ASKED. 


2.2.5 BAD TAPE SPOT DETECTION - 


IF YOU ANSWER (¥) TO THIS QUESTION, THE BAD TAPE SPOT DETECTION 
RETRY ALGORITHM WILL BE USED. OTHERWISE, THE OPERATIONAL WRITE 
ERROR RECOVERY ALGORITHM WILL BE USED FOR ERROR RECOVERY. THE SE 
ALGORITHMS ARE DESCRIBED IN SECTIONS ABOVE. THIS QUESTION WILL 
NOT BE ASKED IF ERROR RECOVERY IS INHIBITED. 


2.2.6 OISABLE INTERRUPTS - 


YOU CAN DISABLE OR ENABLE CONTROLLER INTERRUPTS WITH THIS 
QUESTION. 


2.2.7 INHIBIT RFC ERROR REPORTS - THIS QUESTION ALLOWS YOU TO 
INHIBIT THE RFC (CRESIDUAL FRAME COUNT) ERROR REPORTS. THESE 
ERROR REPORTS INDICATE THAT N_ BYTES/RECOROS/FILES WERE NOT 
PROCESSED AT THE END OF THE COMMAND. 


SEQ 0015 
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2.2.8 CONTROLLER RAM DUMP - 


THIS QUESTION ALLOWS YOU TO CHOOSE WHETHER A DUMP OF THE 
CONTOLLER'S RAM WILL OCCUR WITH EACH ERROR. 


2.2.9 ENABLE EARLY WARNING MESSAGES - 


THIS QUESTION ALLOWS YOU TO ENABLE OR DISABLE THE PRINTING OF A 
MESSAGE EACH TIME A WRITE ERROR OCCURS AND THE EARLY WARNING (EW) 
BIT IS SET IN EXTENDED STATUS REGISTER 1. 


2.2.10 CHANGE CMD SEQUENCE - 


og hae WILL ALLOW YOU TO CHANGE THE COMMAND SEQUENCE USED 


NOTE: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN OPERATOR 
SELECTED SEQUENCE IS TO BE EXECUTED. IF THIS QUESTION IS 
ANSWERED (N), NO MORE QUESTIONS WILL BE ASKED. IF THIS QUESTION 
IS ANSWERED (CY), THE FOLLOWING QUESTIONS MUST BE ANSWERED OR 
DEFAULTED WITH A CR>: 


SEQ 0016 


PARAMETER CODING 
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CHARACTERISTICS CODE (0) 40 ? 
CmMO/2 (0) 13 ? 

BRF COUNT (D0) 1 ? 

® OF OPERATIONS (D) 1 ? 
PATTERN (D) 7 ? 

CMO/3 (0) 4 ? 


BRF COUNT (0D) 4096 ? 

® OF OPERATIONS (D) 11719 ? 
PATTERN (0) 7 ? 

CMD/4 (D) 7 ? 


PATTERN (0) 7 ? 


@ OF OPERATIONS (D0) 11719 ? 
PATTERN (D0) 
CMD/6 (0) 13. 


NN 


096 ? 
(0) 11719 ? 


~ we ow — 
vat riage tech 


PATTERN (0D) 
CMD/8 (0) 27. 
BRF COUNT (0) 4096 ? 

@ OF OPERATIONS (0) 11719 ? 
PATTERN (D) 7 ? 


NOTE: THE PROGRAM AUTOMATICALLY INSERTS A CHARACTERISTICS CODE 


(0 


wwO 


reo pa & oe 2 is oe 
— 


BWSVOAWSVOWSUVOAWSNV@OWEN@OwSWVOw fSfo- 


‘ ' ‘ 
we Avw 
~ ~ 


we Kw & MA Swe XS 


ww Avwu 
—_— 


RS 


‘ ‘ ‘ ‘ ‘ ' ‘ ‘ ‘ ‘ 


Aww Avw 
~ 


a 


Ce he ee 0 ee ee ee ee ae ee ee ae ee ee ae ae ee ee ae ae ee ae ee ee ee ee ee 
OrrrOrrr Orr r Orr rOrr Fr Or rr Or rere 


wMANYNANY 


8 


AMMMm MMMM Mmm MAM mm 
z 
> 


CIMAL ) 
CIMAL ) 
CIMAL ) 


m 
iw) 
3 
Fa 
~~ 


DECIMAL ) 


40 (SEE BELOW) AS THE FIRST COMMAND IN THE SEQUENCE TABLE. 


DIFFERENT CHARACTERISTIC IS DESIRED, THE OPERATOR SHOULD ENTER 


THAT CHARACTERISTIC CODE. 


A TOTAL OF 7 COMMANDS MAY BE ENTERED IN ADDITION TO THE SET 
CHARACTERISTICS COMMAND. IF THE OPERATOR WISHES TO USE LESS THAN 
7 COMMANDS, AN END COMMAND (27) MUST BE ENTERED AND 


CONTROL Z (Z) CAN BE ENTERED TO TERMINATE SOFTWARE DIALOGUE. 


THEN A 


SEQ 0017 


Fe 
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SEQ 0018 
818 
819 
820 
pa 2.2.11 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. - 
ety CODE COMMAND DESCRIPTION 
825 1 = ORI ORIVE INITIATE. 
826 2 = ROF READ FORWARD. 
827 3 = ROR READ REVERSE. 
828 4 = WRT WRITE. 
829 S = wiv WRITE/VERIFY. CWRITE N RECORDS; SPACE REVERSE N RECORDS; 
830 READ FORWARD AND CHECK N RECORDS. ) 
831 6 = SRF SPACE RECORDS FORWARD. 
832 7 = SRR SPACE RECORDS REVERSE. 
833 8 = RNR READ NEXT REVERSE, IE. SPACE FWO, READ REv. 
834 9 = RNF READ NEXT FORWARD, IE. READ FWO, SPACE REV. 
835 10 = RPF READ PREVIOUS FWD, IE. SPACE REV, READ FwD. 
836 11 = RPR READ PREVIOUS REV, IE. READ REV, SPACE FwD. 
837 12 = WRR WRITE RETRY. 
838 13 = RWO REWIND. 
839 14 = MBR MESSAGE BUFFER RELEASE. 
840 1S = WIM WRITE TAPE MARK. 
841 16 = WTR WRITE TAPE MARK RETRY. 
842 Ay © OF SPACE FILES FORWARD. 
843 18 = SFR SPACE FILES REVERSE. 
844 - 19 = GES GET EXTENDED STATUS. 
845 20 = ERS ERASE 3 INCHES OF TAPE. 
846 21 = UNL UNLOAD. 
847 22 = CLN CLEAN TAPE 
848 23 = SCH SET DEVICE CHARACTERISTIC. WHERE BRF=200, 40, 20, O. 
849 200 = ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT) 
850 40 = ENABLE ATTENTION INTERRUPTS. 
851 20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
852 SEE TK25 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
853 24 = NOT USED 
854 25 = JMP JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE TABLE, 
855 WHERE N IS DEFINED IN THE BRF FIELD. THE NUMBER OF 
856 JUMPS IS ENTERED IN THE NUMBER OF OPERATIONS FIELD. 
857 26 = OLY DELAY “N” MILLISECONDS WHERE N IS DEFINED IN THE NUMBER 
858 OF OPERATIONS. THIS DELAY IS USED BETWEEN EACH 
859 EXECUTABLE COMMAND. 
860 27 = END END OF COMMAND SEQUENCE. 


Ge 
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SEQ 0019 
862 
863 
864 
865 2.2.12 DATA PATTERN L'ST FOR USE IN SOFTWARE DIALOGUE - 
866 
? PATTERN @ DESCRIPTION. 
868 
869 te) INCREMENTING PATTERN. 0 - 377. 
870 1 ALL 1’S PATTERN. 
87 2 ALL O'S PATTERN. 
872 3 1 BIT WALKING FROM R TO L IN A FIELD OF O'S. 
87 4 O BIT WALKING FROM R TOL IF A FIELD OF 1'S. 
874 5 ALTERNATING 1 AND O BI.5 WITH ALTERNATE BYTES COMPLIMENTED. (125/25 
87 6 ALTERNATING BYTES OF O00 AND 377. 
87. 7 RANDOM DATA PATTERN. 
877 8 NO PATTERN GENERATION. 
878 
879 
880 
881 2.3. EXAMPLES OF SOFTWARE DIALOGUE 
882 
883 2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR 
= REPORTING ENABLED - 
8 
886 A) RECEIVE PROMPT (OR>) 
887 B) ENTER STA/TES:1-2<CR> 
888 C) ANSWER HARDWARE QUESTIONS. 
a4 D) PROCEED WITH THE FOLLOWING DIALOGUE: 
891 CHANGE SW (L) ? Y<CR> 
892 CLEAR COUNTERS (L) N ? Y<CR> 
893 RESET RANDOM VARIABLES (L) N ? N<CR> 
894 HALT AFTER EACH CMD (L) N ? N<CR> 
895 PRINT SOFT ERRORS (L) N ? ¥<CR> 
896 INHIBIT RECOVERY (L) N ? N<CR> 
897 BAD TAPE SPOT DETECT (L) Y ? Y<CR> 
898 DISABLE INTERRUPTS (L) N ? N<CR> 
899 INHIBIT RFC ERROR REPORT (L) N ? N<CR> 
900 CONTROLLER RAM DUMP (L) N ? N<CR> 
901 ENABLE EARLY WARNING MESSAGES (L) N? N<CR> 


902 CHANGE CMD SEQUENCE (L) N ? N<CR> 


He 
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SEQ 0020 
904 
306 
907 2.3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 
908 
3909 A) RECEIVE PROMPT (DR>) 
910 8) ENTER STA/TES:1/FLA:LOE: IER: ISR: IDU<CR> 
911 C) ANSWER HARDWARE QUESTIONS. 
sie D) PROCEED WITH THE FOLLOWING DIALOGUE: 
91 
914 CHANGE SW (L) ? Y¥<CR> 
915 CLEAR COUNTERS (L) N ? Y<CR> 
916 RESET RANDOM VARIABLES (L) N ? N<CR> 
917 HALT AFTER EACH CMD (L) N ? N<CR> 
918 PRINT SOFT ERRORS (L) N ? N<CR> 
919 INHIBIT RECOVERY (L) N ? N<CR> 
920 BAD TAPE SPOT DETECT (L) Y ? N<CR> 
921 DISABLE INTERRUPTS (L) N ? N<CR> 
922 INHI@IT RFC ERROR REPORT at? N ? Y<CR> 
923 CONTROLLER RAM DUMP (L) N N<CR> 
924 ENABLE EARLY WARNING MESSAGES (L) N?  N<«CR> 
923 CHANGE CMD SEQUENCE (L) N ? N<CR> 
26 
908 
$4 2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIASILITY - 
931 A) RECEIVE PROMPT (DR>) 
932 B) ENTER STA/TES:5/FLA: IER: ISR: IDU/EOP: 1000<CR> 
933 C) ANSWER HARDWARE QUESTIONS 
pad D) PROCEED WITH THE FOLLOWING DIALOGUE: 
936 , CHANGE SW (L) ? Y<CR> 
937 CLEAR COUNTERS (L) N ? Y¥<CR> 
938 RESET RANDOM VARIABLES (L) N ? N<CR> 
939 HALT AFTER EACH CMD (L) N ? N<CR> 
940 PRINT SOFT ERRORS (L)N ? N<CR> 
941 INHIBIT RECOVERY (L) N ? N<CR> 
942 BAD TAPE SPOT DETECT (L) Y ? N<CR> 
943 DISABLE INTERRUPTS (L) N ? Y<CR> 
944 INHIBIT RFC ERROR REPORT (L) N ? Y<CR> 
945 s CONTROLLER RAM DUMP (L) N ? N<CR> 
946 ENABLE EARLY WARNING MESSAGES (L) N 2? N<CR> 
947 CHANGE CMD SEQUENCE (L) N ? Y<CR> 
948 CHARACTERISTICS CODE (0) 40 ? 40<CR> 
949 CMD/2 (D0) 5 ? 13<CR> (REWIND) (COULD BE ANY COMMA 
950 BRF COUNT (D) 4096 ? 1<CR> 
951 @ OF OPERATIONS (D) 10 ? 1<CR> 
952 PATTERN (D) 7 ? 1<CR> 
953 CMO/3 (D0) 5 ? 4<CR> (WRITE) (COULD BE ANY COMMAN 
954 BRF (D) 4096 ? 1000<CR> 
955 ® OF OPERATIONS (0) 10 ? 10000<CR> 
956 PATTERN (D) 7 ? 1<CR> 
957 CMD/4 (D0) 5 ? 27«CR> (END) (COULD BE ANY COMMAN 


958 BRF (D) 4096 ? <tZ> 


PARAMETER CODING 
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2.4 EXECUTION TIMES 

2.4.1 SYSTEM CONFIGURATION - 
POP -11/23+ PROCESSOR 
128KW MEMORY 


1 - TK2S5 ORIVE 
1 - TK2S5 Q-6US CONTROLLER 


0 
0 
O LA34 TERMINAL 
0 
0 


2.4.2 TEST EXECUTION TIMES - 


Ourlwurr 


NOTE 


ALL EXECUTION TIMES ARE SHOWN FOR 
ONE UNIT OPERATION USING A 600 FOOT 
CARTRIDGE ANO THE SYSTEM 
CONFIGURATION ABOVE. FOR SYSTEM 
CONFIGURATIONS OTHER THAN AN 11/23+ 
WITH 128KW OF MEMORY AND A SINGLE 
ve SUBSYSTEM, TEST DURATIONS WILL 
VARY. 


3.0 ERROR INFORMATION 


BASIC FUNCTIONS - 0.5 MINUTES PER PASS. 

DATA RELIABILITY - 83 MINUTES PER PASS. 

WRITE/READ STREAMING TEST - 53 MINUTES PER PASS. 

WRITE COMPATABILITY - 34 MINUTES PER PASS. 

READ COMPATABILITY - 23 MINUTES PER PASS. 

OPERATOR SELECTED SEQUENCE - 48 MINUTES (FOR DEFAULT SEQUENCE). 


SEQ 0021 


PARAMETER CODING 
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3.1 ERROR REPORTING 


ALL ERROR REPORTS EXCEPT FOR ERRORS 1 AND 17 INCLUDE A DUMP OF 
THE FOLLOWING INFORMATION: 


ERROR @, TEST @, SUBTEST @, PROGRAM COUNTER, UNIT 4@, 
COMMAND, PREVIOUS COMMAND, PASS COUNT, NUMBER OF 
RECORDS FROM BOT, RECORD READ COUNT, THE COMMAND 
PACKET, TSSR, TCC, TSBA, RFC, AND THE EXTENDED STATUS 
REGISTERS. 


STANDARD ERROR REPORT FORMAT: 


CZTKIA SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 


CASCII ERROR MESSAGE ) 


XXX CMD FAILED - UNIT X PASS: XXXXX RECORD: XXXXx 


PREVIOUS CMD WAS XXX *# RECORD READ: XXXXX « 
CMOPKT TSBA RFC TSSR TCC 

XXXXKXKX ARARKKKK RAXAKKKK XARAXXKKXKX XK 

XXXXXX 

XXXXXX 

XXXXXX 


xSTO xST1 xST2 xST3 
XXXKXKK XAXKKKXK XARAXAXKXKXK XARAXAXKK 


*# CAUTION « 


INTERPRET THE “RECORD READ” COUNT WITH CAUTION. IF IT IS VERY 
DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC, POSITION 
IS NOT NECESSARELY LOST. ERRORS IN READING THAT RECORD MIGHT 
HAVE CAUSED THE RECORD COUNT TO BE ERRONEOUSLY READ FROM TAPE. 


FOR EXAMPLE, IF IN TEST 2 THE OIAGNOSTIC IS RESTARTED OR 
CONTINUED, THE RECORD COUNT IS RESET TO ZERO ALTHOUGH TAPE WAS 
NOT REWOUND. THIS IS NECESSARY BECAUSE THERE IS NO ACCURATE WAY 
TO DETERMINE ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS 
HALTED BEFORE RESTARTING OR CONTINUING. IT IS SUGGESTED THAT A 
“PRINT” BE REQUESTED WHEN HALTING THE DIAGNOSTIC TO GET A PRINT 
OF THE RECORD COUNT WHEN HALTED. 


SEQ 0022 


PARAMETER CODING 
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EXAMPLE OF AN ERROR REPORT: 


CZTKIA SFT ERR 00009 TST 002 SUB 000 PC: 010606 
RECOVERABLE ERROR 


WRT CMD FAILED - UNIT 2 PASS: 2 RECORD: 254 
PREVIOUS CMD WAS WRT 

CMDPKT TSBA RFC TSSR TCC 

100005 002324 000000 100210 4 

051766 

00037 


1 
xSTO xST1 xST2 xST3 
000350 000002 100004 000000 


3.1.1 ERROR 1 - COMMAND PACKET ADDRESS NOT ON A MODULO 4 
BOUNDRY 


IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
foamert tt. SYSTEM FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 


3.1.2 ERROR 2 - TK2S NOT READY: - 


BEFORE ANY COMMAND IS ISSUED TO THE TK25, THE SUBSYSTEM READY BIT 

IN THE TSSR4 IS _ CHECKED. IF THE SSR IS NOT SET, THE PROGRAM . 

REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 

pe Mg I oe BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 
U . 


3.1.3 ERROR 3 - NO RESPONSE ERROR: - 


ONCE THE TSOB IS LOADED, THE TK25 HAS ONE MILLISECOND TO RESPOND 
OR THE PROGRAM REPORTS A “NO RESPONSE” ERROR. THIS IS A FATAL 
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST 
SEQUENCE UNLESS THE IDU OPTION IS USED. 


3.1.4 ERROR 1 - NO INTERRUPT ERROR: - 


COMMAND WAS ISSUED AND NO INTERRUPT WAS RECEIVED. THE PROGRAM 

REPORTS THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR 

ee ae ae WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
U , 


SEQ 0023 
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3.1.5 SPECIAL CONDITION ERRORS: - 


IF, OURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR SPECIAL 
CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 8 ERROR 
HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS CODE. 


THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET: 


3.1.5.1 ERROR S - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 
CONDITION - 


THE ERROR IS REPORTED, A HARD ERROR IS LOGGED AND THE PROGRAM 
PROCEEDS NORMALLY. 


3.1.5.2 ERROR 6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 


THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
THE IDU OPTION IS USED. 


3.1.5.3 ERROR 7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT - 


A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE 
SIGNIFICANCE TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, 
LET, RLL, EOT. ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED. 
IF THE CONDITION IS UNEXPECTED, THE ERROR IS REPORTED AND A HARD 
ERROR IS LOGGED. 


3.1.5.4 ERROR & - TERMINATION CLASS CODE 3, FUNCTION REJECT - 


THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST 
INCLUDE RMR, OFL, VCK, BOT, ILC, WE, ILA, AND NBA. THIS IS A 
FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST 
CYCLE UNLESS THE IDU OPTION IS USED. 


SEQ 0024 


PARAMETER CODING 
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3.1.5.5 ERROR 9 - TERMINATION CLASS CODE 4, RECOVERABLE ERROR - 


TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN THE 
FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE ERROR 
AND ISSUE THE APPROPRIATE RETRY COMMAND. IF THE RETRY LIMIT IS 
REACHED BEFORE THE ERROR IS RECOVERED, A “RETRY LIMIT EXCEEDED” 
IS REPORTED AS DESCRIBED IN ERROR 14 BELOW. 


3.1.5.6 ERROR 10 - TERMINATION CLASS CODE 5S, RECOVERABLE ERROR - 


TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND RE-ISSUE THE ORIGINAL COMMAND. IF THE RETRY LIMIT IS 
REACHED BEFORE THE ERROR IS RECOVERED, A “RETRY LIMIT EXCEEDED” 
IS REPORTED AS DESCRIBED IN ERROR 14 BELOW. 


3.1.5.7 ERROR 11 - TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 


TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 
IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 
SEQUENCE NUMBERS. THIS IS A FATAL DEVICE ERROR AND THE ODEVICE 
woe BE OROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS 
USED. 


3.1.5.8 ates 12 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 


THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COMMANDS OR AT 
LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THE 
FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL 
INFORMATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL BE 
DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


3.1.6 ERROR 13 - RFC NON-ZERO ERROR: - 


IF, AFTER EXECUTION, THE RESIDUAL FRAME COUNT IS NON-ZERO, THE 
ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
a NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS IS 


SEQ 0025 


PARAMETER CODING 
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3.1.7 ERROR 14 - RETRY LIMIT EXCEEDED: - 


ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
os BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS 
U . 


ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND THE 
PROGRAM PROCEEDS NORMALLY. 


3.1.8 ERROR 15 - TOO MANY INTERRUPTS: - 


IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS ERROR IS 
REPORTED. THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE 
DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


3.1.9 ERROR 16 - CAPSTAN RUNAWAY: - 


CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


3.1.10 ERROR 17 - DATA COMPARE ERROR: - 


IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND, 

THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 

DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR 

OCCURRED ON. ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE 

PRINTED. THE TOTAL NUMBER OF BYTES IN ERROR PER RECORD IS ALSO 

a beg A WARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS 
LLY. 


3.2 ERROR HALTS 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG:HOE. THERE ARE NO CTER HALTS. 


SEQ 0026 
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4.0 PERFORMANCE REPOR’ 


UNIT X PASS:XXXXX RECORD: XXXXx 
BYTES WRITTEN XXX,XXX,XXX, XXX 
BYTES READ REV XXX,XXX, XXX, XXX 
BYTES READ FWD KXX,XXX, XXX, XXX 


wRT ROR 
RECOVERABLE ERRORS XXXXX XXX 
UNRECOVERABLE ERRORS XXXXX XXKKX 


SPEC COND HARD FATAL COMPARE 
MXKKK AKAM MKKKK | KK KKK 


TEST SUMMARIES 
TEST 1 - BASIC FUNCTIONS. 
EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TK25 FUNCTIONS. 


SEQ 0027 


ROF 
MAKKK 
RRAKK 


SUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 
* SET CHARACTERISTIC 200. (ENABLES SKIP TAPE MARKS STOP) 


ORIVE INITIATE. 


SET CHARACTERISTIC 20. (ENABLES MESSAGE BUFF RELEASE INTERRUPTS) 


+ GE 
. 


SUBTEST 2 - REWIND. 
¢ REWIND. 
+ REWIND AT BOT. 


SUBTEST 3 - WRITE/VERIFY. 

+ WRITE/VERIFY PATTERN 1. 
+ WRITE/VERIFY PATTERN 2. 
+ WRITE/VERIFY PATTERN 3. 
+ WRITE/VERIFY PATTERN 4, 
+ WRITE/VERIFY PATTERN 5S. 
+ WRITE/VERIFY PATTERN 6. 
+ WRITE/VERIFY PATTERN O,. 
SUBTEST 4 - WRITE TAPE MARK, ERASE. 
+ WRITE TAPE MARK, 

+ WRITE 10 RECORDS 

« ERASE 10 TIMES 

+ WRITE TAPE MARK, 

+ WRITE TAPE MARK RETRY. 


SUBTEST 5 - SPACE FILES. 
+ SPACE 2 FILES REVERSE, 


T STATUS 
SET CHARACTERISTIC 40. CENABLES ATTENTION INTERRUPTS) 


PARAMETER CODING 
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SUBTEST 


SUBTEST 


SUBTEST 


SUBTEST 


SUBTEST 


SUBTEST 


SUBTEST 


SPACE 2 FILES FORWARD. 
SPACE 2 FILES REVERSE, 
SPACE 2 FILES FORWARD. 


- SPACE RECORDS. 
REWIND. 
SPACE 7 RECORDS FORWARD. 
SPACE 7 RECORDS REVERSE. 


SPACE 7 RECORFOS FORWARD. 
SPACE 7 RECORDS REVERSE. 


- WRITE RETRY. 
REWIND. 
WRITE DATA, 
WRITE RETRY. 


- READ REV RETRY. 
READ REVERSE. 
READ NEXT REVERSE. 
READ NEXT FORWARD. 


- READ FWO RETRY. 
READ FORWARD. 

READ PREVIOUS FORWARD. 
READ PREVIOUS REVERSE. 


10 - CLEAN, 


° 
° 


11 


REWINO. 


- WRITE/VERIFY SWAPPED DATA BYTES. 
WRITE/VERIFY EVEN LENGTH (RECORD 1). 


WRITE/VERIFY ODD LENGTH (RECORD 2). 
SET DATA BYTE SWAP, 


WRITE/VERIFY EVEN LENGTH (RECORD 3). 


WRITE/VERIFY OOD LENGTH (RECORD 4). 
CLEAR DATA BYTE SWAP. 


2 - READ ote BYTES. 


READ REV RECORD 3. 
SET DATA BYTE SWAP, 
READ REV RECORD 2. 
PEAD REV RECORD 1. 
READ FWD RECORD 1. 
READ FWO RECORD 2. 
CLEAR DATA BYTE SWAP, 
READ FWO RECORD 3. 
READ FWD RECORD 4, 


SEQ 0028 
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5.2 TEST 2 - DATA RELTABILITY. 


z. 


THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 

os ee 40 

WRITE 31 RECORDS OF RANDOM LENGTH AND DATA 

WRITE, REPOSITION RECORD REVERSE, AND READ COMMANDS ARE 
SELECTED AT RANDOM AND ARE EXECUTED A RANDOM NUMBER OF 
TIMES WITH RANDOM LENGTHS AND RANDOM PATTERN UNTIL END 
OF TAPE IS REACHED. 


AT THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
A PERFORMANCE REPORT IS PRINTED. 


NOTE 


IF A RESTART COMMAND IS USED T0 
INITIATE TEST 1, THE INITIAL REWIND 
COMMAND IS NOT ISSUED. 


5.3 TEST 3 - WRITE AND READ STREAMING TEST. 


Pye VIII IIT irririiiiiirrirritiiiriiriiiiiiiitiviiiiiri ii) 
eee NOTE: THE TAPE LENGTH MUST BE 600 FEET FOR THIS TEST ees 


PYYT TTI TIT TIT rir iritiriiititiiritiiiiritiiiiiittt rir tii it) 
1. REWINDS ALL UNITS, THEN ON EACH WIT: 


SHHESEHSHESSSSHESSSSSESSEHSSESSSESHEESEHSHSSSSSSESSEHESESSEHSESHESEHESEESSESEESD 


2. WRITE PATTERN S FOR 11719 - 4096 BYTE RECORDS. 
3. SPACE REVERSE FOR 11719 RECORDS. 
4. READ FORWARD FOR 11719 RECORDS. 


SHESHESSSEESHESEHESSESASESHSEEEHSSESESESHESSSEHESHESESESESHSSSESHESSEHEAEEEHEEED 


SEQ 0029 
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5.4 TEST 4 


BOT TO EOT. 


$.3 vest $ 


NOTE 


WRITE AND READ ITERATIONS ARE 
INTERRUPTED SO THAT THE TAPE DOES 
NOT CONTINUOUSLY STREAM. THREE 
RECOROS ARE ALLOWED TO STREAM 
BEFORE THE UNIT IS INTERRUPTED FOR 
BOTH WRITE AND READ OPERATIONS. 
THE INTERRUPTION SCHEME IS SET UP 
TO PERMIT STREAMING OPERATIONS 758 
OF THE TIME THIS TEST IS _ IN 
EXECUTION. 


THIS TEST EXECUTES IN A_ SINGLE 
SERVER MANNER - ONLY ONE UNIT AT A 
TIME IS EVER IN OPERATION. FOR A 
FOUR (4) UNIT CONFIGURATION, THIS 
MEANS THAT THE DUTY CYCLE OF THE 
SYSTEM WILL BE 258, BUT THE 
STREAMING OPERTATION OF THE 
SPECIFIC UNIT UNDER TEST WILL BE 
75s. FOR A_ THREE (3) UNIT 
CONFIGURATION THE SYSTEM DUTY CYCLE 
WILL BE 33.38, AND A TWO UNIT 
CONFIGURATION WILL BE SOs. THE 
STREAMING DUTY CYCLE FOR’ ANY 
PARTICULAR UNIT UNDER TEST WILL 
ALWAYS BE 758 REGAROLESS OF THE 
SYSTEM DUTY CYCLE. 


- WRITE COMPATABILITY/WRITE UTILITY. 
REWINDS AND WRITES RECORDS OF RANDOM LENGTHS AND RANDOM DATA FROM 


- READ COMPATABILITY/READ UTILITY. 
REWINDS AND READS ENTIRE TAPE IN THE FORWARD DIRECTION, REWIND. 


SEQ 0030 
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1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 


rs 
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5.6 TEST 6 - EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


THE SEQUENCE OF COMMANDS ENTERED BY THE OPERATOR IS EXECUTED. IF 
NO COMMANDS WERE ENTERED, A OEFAULT SEQUENCE OF 
REWIND/WRITE/REWIND/READ FWD/REWIND OF THE ENTIRE TAPE IS 
EXECUTED WITH RANDOM PATTERN AND RECORD LENGTH OF 4096 BYTES. 


6.0 DEVICE INFORMATION TABLES 
6.1 GENERAL 


os TK25 SUBSYSTEM IS A 1/74 INCH CARTRIDGE TAPE DRIVE WITH EITHER 
UNIBUS OR Q-BUS CONTROLLER, THE CONTROLLER MODULES USE THE 
Ts11 PROTOCOL AS DEFINED IN THE TK2S SUBSYSTEM PROGRAMMERS GUIDE. 


COMMANDS ARE NOT WRITTEN TO THE ORIVE; RATHER, COMMAND POINTERS 
ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOMEWHERE IN CPU 
MEMORY. THE COMMAND POINTER IS USED BY THE TK25 SUBSYSTEM TO 
FETCH THE WORD(S) WITHIN THE COMMAND PACKET. THE WORDS WITHIN 
THE COMMAND PACKET ARE: 


COMMAND WORD 

LOW ORDER BUFFER ADDRESS 
HIGH ORDER BUFFER ADDRESS 
BYTE COUNT 


autre 


THE TSSR CONTAINS i. THE INFORMATION WHICH WILL BE NECESSARY TO 


DETERMINE WHETHER 


1. THE ORIVE IS READY TO ACCEPT ANOTHER COMMAND, 
2. THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERROR. 


IF EITHER OF THE ABOVE CONDITIONS IS UNTRUE AT “JOB DONE” OR 
“COMMAND INITIATION” TIME, IT MAY BE NECESSARY TO GET THE 
EXTENDED STATUS REGISTERS TO DETERMINE WHAT ACTION IS TO BE TAKEN 
ANO/OR LOG THE ERROR INFORMATION. 


EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM ORIVE 
REGISTERS; RATHER, A “GET STATUS” COMMAND IS ISSUED WHICH WILL 
CAUSE THE TK25 TO TRANSFER EXTENDED STATUS INFORMATION TO THE 
MEMORY AREA POINTED TO BY THE BUFFER ADDRESS OF THE “GET STATUS” 
COMMAND. THERE ARE FOUR EXTENDED STATUS REGISTERS. 


THE TSOB MUST BE WRITTEN WITH A DATO INSTRUCTION TO PROPERLY 
WRITE THE COMMAND POINTER. A DATOB WILL CAUSE A MAINTENANCE 
FUNCTION. A DATO TO THE TSSR WILL CAUSE SUBSYSTEM INIT. 


COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR MEMORY BOUNDARIES 
CAS OPPOSED TO DIVIDE BY 2 OR WORD BOUNDARIES). 


SEQ 0031 
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1520 
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6.2 BUS INTERFACE SPECIFICATIONS 


THE STANDARD ADDRESSES AND VECTORS ARE ASSIGNED AS FOLLOWS: 


Q-BUS UNIBUS 
TK25 REGISTER se (I/O PAGE) ADDRESS VECTOR 

0) TSBA/TSOB 1 2 520 772 S20 
TSSR 1 2 S22 772 S22 224 

1 TSBA/TSOB 1 2 524 772 524 
TSSR 1 2 526 772 526 . 

2 TSBA/TSOB 1 2 530 772 530 
TSSR 1 2 532 772 532 . 

3 TSBA/TSDB 1 2 534 772 534 
TSSR 1 2 536 772 536 . 


THE “#” INDICATES THAT THE VECTOR IS A FLOATING VECTOR WITH RANK 
OF 37. FLOATING VECTORS ARE ASSIGNED STARTING AT 300 WITH THE 
LOWER RANK NUMBERS BEING ASSIGNED FIRST. NOTE THAT THE FLOATING 
VECTORS MAY CHANGE FROM SYSTEM TO SYSTEM. 


SEQ 0032 


H3 
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SEQ 0033 
1548 
1549 
1550 
fet! 6.3 BIT DEFINITIONS FOR TK25 REGISTERS 
1 
‘ose 6.3.1 TK25 REGISTER SUMMARY - 
toes 15 = 13 = — Pray = = Peal Preys = Praga & = = De 
ee ee ee ee ee eee 
1557 »A15) )A14)A13)A12) )A11)A10)A09) }A08 )AO7 )ADE) )A0S )A04 )A03) }A02 )AO1 DADO) 
to TSBA ) >> ) ) ) ) ? 4 ) ) ) 4 ) ) , 4 ) ) ) 4 
ee ee ee ee ee ee ee ee ee ees Oe ee eee ee 
1560 P15) )P14)P13)P12) )P11)P10)P09) }P08 )P07 )PO6 ) }P05 P04 )PO3) )P02)P17)P16) 
et TSOB } > ? 
Ce ee ee a ee ee ee ee ee ee ee ee ee ee ee eee ee ° 
1563 ysC > > > )RMR > )NXM NBA )AL7) }A16)SSROFL) IFC1)FCO}TC2) )TC1 TCO) > 
1564 TSSR )} >) > > >> ) > >> > ) P22 > > > > > > 
1565 ee ee Se ee ee en ee ee ee ee ee ee ee ee eee ee eee eee eee 
1566 
1567 i ee ee ee ee ee ee oe ee ee ee ee ee ee ee 
1568 xSTO )TMK) JRLSILETRLL) }WLE )NEF ILC) YILA)MOT)ONL)> DIE )VCK) > yuk )8OT yEOT) 
io. > >> ) 4 ) ? > > | > d >> > > >> ) > > 
ee ee ee 2 eee eee ee ee ee ee Se ee ee ee ee ee eee eee 
1571 XST1 )DLT) > > yCRS) )NER > > >>) )TN3)>TN2)> )TNL)TNO) EW) )} YUNC > > 
1572 > >> > > >> > > i d > ? , > 
1573 ee ee ee eee ee Se ee ee ee Se ee ee ee ee ee ees eee ee ee eee ee 7 
1574 xST2 )OPM) )DCF DHF )SPD) ) O >) 7a ea > ERROR ADDRESS LST SIGNIFICANT BYTE) 
th > >> > > »> > ) , > : > > 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
1577 XST3 } ERROR ADDRESS MOST SIGNIFICANT BYTE ) OPI) )REV)TCH)STP) >) > RIB) 
1578 > +} > > >> > > ee. > > > > ) 
1579 ee ee ee ee ee eee 
1580 
1581 
feos TERMINATION CLASS CODES (TSSR TCO-TC2): 
1584 O = NORMAL TERMINATION 
1585 1 = ATTENTION CONDITION 
1586 2 == TAPE STATUS ALERT 
1587 3 = FUNCTION REJECT 
1588 4 = RECC.ERABLE ERROR - TAPE POSITION = ONE RECORD 
1589 DOWN TAPE FROM START OF FUNCTION 
1590 5 = RECOVERABLE ERROR - TAPE NOT MOVED 
1591 6 = UNRECOVERABLE ERROR - TAPE POSITION LOST 
1592 7 = FATAL CONTROLLER ERROR 


13 
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SEQ 0034 
1595 
1596 
1597 
1598 6.3.2 TK25 STATUS REGTSTER (TSSR) - 
1599 
1600 
1601 
1602 6.3.2.1 TSSR READ ONLY - 
OUS 
aoe 15 14 13 ie 11 10 O9 = - = = Piste Bes = Pets Pres 
| ld A Sd Se Melt A Dee Ded Dd ee Pn ee re ee ee ee ee ee ee See fe © 

aoe TSSR )SC >) ) > pian ce apical })A16)SSRIOFL) FCLIFCODTCA) 1¢1)TC0) > 
cs Bite ee Ee. ee ae ee Ce ee a ae EN op he OO ee ns 
1609 > TERMINATION ) 
1610 ) BIT NAME CLASS DEFINITION > 
1611 ET eee oe ee eee 1 5 Ee ee Oe Se NE eee a Se er AN LO aM > 
1612 ) > 
1613 > 15 sc Ss SPECIAL CONDITION: USED TO INDICATE > 
1614 > THAT EITHER AN ERROR OR AN EXCEPTION > 
rte ; OCCURRED WHILE EXECUTING A COMMAND. : 

1 
1617 > 14 - - NOT USED > 
1618 > > 
1619 > 13 - - NOT USED ) 
1620 > > 
1621 > 12 PMR S REGISTER MODIFICATION REFUSED: SSR > 
1622 > (SUB-SYSTEM READY) WAS NOT SET WHEN A > 
ty ; COMMAND POINTER WAS LOADED INTO TSDB. ; 
1625 > 11 NXM 4/5 NONEXISTENT MEMORY: WHEN AN ATTEMPT TO )} 
1626 > TRANSFER TO OR FROM A NONEXISTENT MEMORY ) 
ext ; LOCATION, THIS BIT WILL SET. ; ; 
1629 > 10 NBA S NEED BUFFER ADDRESS: INDICATES THAT THE ) 
et ; MESSAGE BUFFER ADDRESS IS REQUIRED. : 
1632 ) 09 A17 S BUS ADORESS BIT 17: DISPLAYS VALUE OF > 
ney ; BIT 17 OF THE TSBA REGISTER. : 
1635 > 08 A16 S BUS ADDRESS BIT 16: DISPLAYS VALUE OF > 
et ; BIT 16 OF THE TSBA REGISTER. : 


J3 
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SEQ 0035 

1639 
1640 
1641 
1642 
ee Soe oe. re oP | i >. teen ened eennnntibieanmtbntediniomeanben 
1644 > TERMINATION ) 
1645 > BIT NAME CLASS DEFINITION ) 
1646 1 ssapanenanGabiadinnenteaamittieiididheandabenbniaitemiiembainnmetattniiada adminis > 
1647 ) > 
1648 > SSR S SUBSYSTEM READY: THE SUBSYSTEM IS NOT ) 
1649 > BUSY ANO IS READY TO ACCEPT A NEW COMMAND) 
ety : POINTER WHENEVER THIS BIT IS SET. : 
1 
1652 > 06 OFL Ss OFF LINE: INDICATES THE TAPE TRANSPORT ) 
1653 > IS OFF LINE AND UNAVAILABLE FOR ANY ) 
es ; MOTION COMMANDS. ; 
aoa ; 0s FC1 : FATAL TERMINATION CLASS 1 - NOT USED ; 
pts ; 04 FCO - FATAL TERMINATION CLASS 0 - NOT USED ; 
1660 >» O83 Tce S TERMINATION CLASS BIT 2: THIS BIT, ALONG) 
1661 > WITH TC1 AND TCO, ACTS AS AN OFFSET VALUE) 
1662 > WHENEVER AN ERROR OR EXCEPTION CONDITION } 
1663 > OCCURS ON A COMMAND. EACH OF THE EIGHT )} 
1664 > POSSIBLE VALUES OF THIS FIELD REPRESENTS >} 
1665 > A PARTICULAR CLASS OF ERRORS WHICH HAVE A) 
1666 > SIMILAR SIGNIFICANCE AND, AS APPLICABLE, >) 
1667 > SIMILAR RECOVERY PROCEDURES. THE CODE > 
1668 > PROVIDED IN THIS €IELD IS EXPECTED TO BE } 
1669 > USED AS AN OFFSET INTO A DISPATCH TABLE )} 
ty ; FOR HANDLING OF THE CONDITION. : 
oH : 02 TCc1 Ss TERMINATION CLASS BIT 1: SEE TC2 : 
et ; 01 Tco Ss TERMINATION CLASS BIT O: SEE TC2 : 
1676 >» 00 ° NOT USED > 
1677 RES ee ee a Ee ees Sa re > 
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6.3.2.2 TSSR WRITE ONY - 


WRITE COMMANDS TO THE TSSR DO NOT WRITE, BUT INVOKE CERTAIN 
SPECIALIZED FUNCTIONS. 


a. 


Ss 


A WRITE WORD (DATO) TO THE TSSR WILL INITIALIZE THE TK25 
SUBSYSTEM AND REWIND THE TAPE ON THE CARTRIDGE. 


A WRITE BYTE COATOB) TO THE LOW BYTE OF THE TSSR WILL 
CAUSE THE CONTROLLER TO EXECUTE ITS RESIDENT SELF TESTS. 
IF THE CONTROLLER PASSES THE SELF TESTS, IT WILL THEN 
INITIALIZE ITSELF AND THE ORIVE AS ABOVE. THE TSOB/BA 
AND THE TSSR WILL NOT RESPOND TO 6US_ TRANSACTIONS FOR 
THE OURATION OF THE SELF TEST (CAPPROXIMATELY 100 
MICROSECONDS). ANY ATTEMPT BY THE HOST TO READ OR WRITE 
THESE REGISTERS OURING SELF TEST WILL RESUT INA 
NON-EXISTENT DEVICE REGISTER TIMEOUT. 


IF AN OPERATION IS NOT IN PROGRESS (SSR SET IN THE 
TSSR), A WRITE BYTE TO THE HIGH BYTE OF THE TSSR WITH A 
“1" IN THE HIGH ORDER DATA BIT POSITION (BIT 7) WILL 
CAUSE THE SUBSYSTEM TO BOOT THE CPU BY MEANS OF THE 
FOLLOWING SEQUENCE OF EVENTS (Q@-BUS CONTROLLER ONLY): 


O REWIND THE TAPE 
O SPACE FORWARD ONE RECORD 


O READ THE FIRST 256 BITS OF THE SECOND RECORD INTO 
CPU MEMORY STARTING AT ADDRESS 0. 


SEQ 0036 


aR. 
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SEQ 0037 
1715 
1716 
1717 
1718 6.3.3 EXTENDED STATUS REGISTER O (XSTATO) - 
1719 
Leg 15 14 #135 i2 1 al ~~ 08 O7 06 0S 04 O03 ll 01 OO 
Tel i A ee ee ee ee ee ee ee eee eee ee eee eee ee 
455 | XSTO)TMK ) PRLS ILETIRLL) }WLE NEF ILC) DILA)MOT ONL) Me wer) ) MLK BOT EOT) 
1 e---6 2+ -6--- 0 - =e i 2 ee ee ee ee ee ee ee ee 
Fg ee ee ES SS a Rae Se Ieee ae Re ae a LS So ee eS 
1725 > TERMINATION > 
1726 » aT NAME CLASS DEFINITION > 
1727 RE Se Ney | See ee, 6 e RE  IN e e  ar  C > 
1728 > > 
1729 > 15 TMK S/2 TAPE MARK DETECTED: SET WHENEVER A > 
thay ; TAPE MARK IS DETECTED ON TAPE. : 
1731 
1732 > 14 RLS 2 RECORD LENGTH SHORT: USED TO INDICATE > 
1733 > ONE OF THREE CONDITIONS: 1. THE RECORD > 
1734 > READ WAS SHORTER THAN THE BYTE COUNT > 
1735 } 2. A SPACE RECORD OPERATION TERMINATED > 
1736 > BEFORE THE POSITION COUNT WAS COMPLETED )} 
1737 > (THIS IS NORMAL IF A TAPE MARK IS > 
1738 > DETECTED OR BOT IS ENCOUNTERED IN A > 
1739 > SPACE REVERSE). 3. A SKIP TAPE MARKS > 
1740 > COMMAND TERMINATED BEFORE THE POSITION > 
1741 > COUNT WAS COMPLETED. THIS IS NORMAL IF )} 
1742 > A DOUBLE TAPE MARK (SEE LET) IS > 
1743 > DETECTED OR BOT IS ENCOUNTERED IN A ) 
1744 > REVERSE OPERATION. > 
1745 > > 
1746 > > 
1747 >. LET 2 LOGICAL END OF TAPE: SETS IF A TAPE MARK )} 
1748 > IS DETECTED WHEN MOVING FROM BOT OR IF d 
1749 } DOUBLE TAPE MARKS ARE DETECTED. NOTE: > 
1750 > THIS BIT WILL ONLY SET IF THE COMMAND > 
1751 ) IS SKIP TAPE MARKS AND THE MODE OF > 
1752 > TERMINATION WAS ENABLED BY THE SET > 
seas . CHARACTERISTICS COMMAND. ; 
1755 } 12 RLL 2 RECORD LENGTH LONG: THE RECORD READ WAS ) 
reer > LONGER THAN THE BYTE COUNT SPECIFIED. ; 
> 
1758 > 11 WLE 3,(6) WRITE LOCK ERROR: THE WRITE OPERATION > 
1759 > WAS ISSVED TO A WRITE PROTECTED TAPE. > 
1760 > NOTE: THE TK25 SETS THE TERMINATION > 
1761 > CODE 3 ONLY. TC 6 APPLIES ONLY TO > 
fu ; ORIVES EQUIPPED WITH A WRITE LOCK SWITCH : 
1764 > 10 NEF 3 NON-EXECUTABLE FUNCTION: CAUSED TO SET > 
1765 > BY ONE OF THE FOLLOWING: > 
by, . . REVERSE COMMAND WHEN ALREADY AT BOT ; 
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1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
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i 0 


09 


07 


os 


02 


01 


vcK 


EOT 


M3 


5/1/73 


S/3 


S/2/3 


$/2 


. ANY MOTION COMMAND WITHOUT A CLEAR 
VOLUME CHECK WHILE THE TRANSPORT WAS 


OFF-LINE. 
. —" COMMAND TO A WRITE PROTECTED 


ILLEGAL COMMAND: ANY COMMAND THAT 
CONTAINS CODES IN EITHER THE COMMAND 
FIELD OR MODE FIELO THAT ARE NOT 
SUPPORTED BY THE TAPE TRANSPORT. 


ILLEGAL ADDRESS: WHEN THIS BIT IS SET, 
AN ILLEGAL ADDRESS IS ISSUED. 


CAPSTAN MOVED: INDICATES TAPE WAS MOVED 
DURING AN OPERATION. 


ON-LINE: INDICATES THAT THE SELECTED 
TRANSPORT IS ON-LINE AND READY. TER- 
MINATION CLASS 1 IS SET FOR ATTN 
INTERRUPTS AND TC 3 FOR NON-EXECUTABLE 
FUNCTIONS REJECTED WHILE OFF LINE. 


INTERRUPT ENABLE: 


VOLUME CHECK: ALWAYS SET AFTER 
INITIALIZATION OR WHEN THE ON-LINE 
STATUS OF THE TRANSPORT CHANGES. 
CEITHER ON TO OFF OR OFF TO ON) 


PHASE ENCODED DRIVE: TK2S IS NOT P.E., 
SO THIS BIT IS ALWAYS ZERO. 


WRITE LOCKED: THE TAPE IS WRITE 
PROTECTED. 


BEGINNING OF TAPE: THE TAPE IS AT LOAD 
POINT, TC2 IS SET IF TAPE IS REVERSED 

INTO BOT, AND TC3 IF A REVERSE COMMAND 
IS ISSUED WITH THE TAPE ALREADY AT BOT. 


END OF TAPE: SETS AS THE HEAD PASSES TO 
TRACK 10 IN THE FORWARD DIRECTION, IT 
IS NOT RESET UNTIL THE HEAD PASSES BACK 
TO TRACK 9 IN THE REVERSE DIRECTION. 
(STATUS ON READ; TC2 ON WRITE. 
SUBSYSTEM INIT ALSO RESETS THIS BIT. 


ee ee 0 a ee a ee ee ee ee ee ee ee ee 


SEQ 0038 


N3 
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SEQ 0039 

1823 
1824 
1825 
ert 6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) - 
182 
1828 15 14 ott - - 10 09 wll rol 06 ~. 04 03 02 O1 00 
1829 ee ee ee! eee! ee! ae ee! ee ee ee ee eee ee eee ee ee ee ee eee er: 
1830 YOLT) > d d¢RS) NER? > >> )INS)TN2) )INL)TNO) Ew) > JUNC > > 
1831 eo +--+ o--- ¢ b---6--- e---% 62 --6---6--- e ---6---6--- 6 ---6---6---% 
Soe rs et re ee eek er eR) OF Ie ee Eee oe TL ae on eS 
1833 > TERMINATION > 
1834 > BIT NAME CLASS DEFINITION ) 
1835 ae re a ee) ee ey SEEN Ee Oe A > 
1836 > ) 
1837 > 15 DLT 4 DATA LATE: THIS BIT IS SET WHEN THE 16 > 
1838 > BYTE FIFO BUFFER IS FULL ON A READ, OR > 
1839 > EMPTY ON A WRITE, AND THE TAPE TRANSPORT > 
1840 ) REQUIRES A DATA TRANSFER. > 
1841 > > 
1842 > 14 - - NOT USED. > 
1843 > > 
1844 > 13 - - NOT USED. > 
1845 > > 
1846 > 12 CRS 4 CREASE DETECTED. DATA DROPPED OUT FOR UP) 
odd . TO 1.8 MS CAPPROXIMATELY 0.2 INCH). ; 
ot ; 11 NER 4 NOISE DETECTED DURING ERASE. ; 
1851 > 10 - - NOT USED. > 
1852 > > 
1853 > 09 . - NOT USED. > 
1854 > > 
1855 > 08 - - NOT USED. > 
1856 } > 
pot ; 07 TN3 S TAPE TRACK NUMBER HIGH ORDER BIT. ; 
144 ; 06 TN2 S TAPE TRACK NUMBER BIT 2. : 
pots ; os TN1 S TAPE TRACK NUMBER BIT 1. ; 
pees ; 04 TNO S TAPE TRACK NUMBER LOW ORDER BIT. ; 
per ; 03 Ew S/4 EARLY WARNING HOLE AT END OF TRACK SEEN. ; 
1867 > 02 - - NOT USED. ) 
1868 > > 
1869 > O1 UNC 4 UNCORRECTABLE DATA: IN THE TK25 ALL > 
1870 > TAPE ERRORS ARE UNCORRECTABLE, SINCE > 
ee ; THERE IS NO INTERNAL ERROR CORRECTION. ; 
1873 > 00 - - NOT USED. > 
1874 ne ge ns er _) 


54 
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SEQ 0040 

187 
1878 
1879 6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) - 
1881 15 14 13 12 11 10 0O9 08 O7 06 vod 04 O83 ed o1 ~~ 
1882 Coen Pee Ses Hees Seco HeseGeesH Hoes Gee+H- 2s HeosHecs o« 
1883 OPM) OCF DOMF SPO) » i?) > »>1)>%) ) “ERROR “ADDRESS st “SIGNIF ICANT ‘erte) 
1884 O+- 50 022+ 6--28- +. ee ee ee ee ee © @+++6--- -- “-- ~--6 
1885 e- eee een ee eee eee eee! 2 eee fe ee 
seer SET CHARACTERISTICS COMMAND: KFS) CONTROLLER FIRMWARE VERSION > 

eee eee eee ee eee eee eee! ae ees <6 
18688 
BP, De a al a an ee hE ee ee Ne eee hoy ee ee Pe Ee 2 
1890 ) TERMINATION » 
1891 ) BIT NAME CLASS DEFINITION > 
1892 re ee ee ee = Te te RT See ne ort (ae > 
1893 ) > 
ies . 15 OPM S OPERATION IN PROGRESS: TAPE MOVED ; 
1896 > 14 OocF ? ORIVE COMMUNICATION FAULT. FAILURE OF ) 
1897 ? READ SENSE COMMAND TO TCS INITIATED AFTER) 
1898 ) OETECTING INT OR DER RESULTING FROM TAPE >) 
1899 > MOTION COMMAND TO TCS; OR HEALTH CHECK > 
peor : FAULT RECEIVED IN TCS SENSE BYTES. : 
1902 > 13 OF 7? ORIVE HAROWARE FAULT. NO LAMP CURRENT > 
1903 > STATUS OR HEAD POSITIONING FAULT RETURN- ) 
pond ; EO IN TCS SENSE BYTES. : 
ior ; 12 SPO 7 CAPSTAN SPEED ERROR, FAST OR SLOW : 
1908 > 11 .¢] - TK25 IDENTIFIER, ALWAYS ZERO. > 
1909 > > 
1910 > 10 - - NOT USED. > 
1911 » > 
ey ) 09 1 . TK25 IDENTIFIER, ALWAYS ONE. ; 

, 

core : 08 - . NOT USED. ; 
1916 » 07-00 EAD 07-00 S ERROR ADORESS LEAST SIGNIFICANT BYTE. > 
1917 ) (PROGRAM COUNTER IN THE TCO MICROCODE.) > 
is bevsennannnsecnesecnennecessenennensensrsnrsrerroneertvntonsnrtenntore ) 
1920 NOTE; XSTAT 2 BITS O7 THRU OO HAVE A DIFFERENT MEANING DURING THE SET 
1921 CHARACTERISTICS COMMAND: xXSTAT 2 BITS 06 THRU OO RETURN THE MA.IOR 
1922 REVISION LEVEL OF THE CONTROLLER MICROCODE (IN BINARY). IF BIT 0? 
1923 IS A 1, THE CONTROLLER ASSUMES A 22 BIT Q-BUS, AND IF O, AN 18 BIT 
1924 Q-BUS OR A UNIBUS. IN THE LATTER CASE, COMMAND PACKETS CONTAINING 


1925 ADDRESSES GREATER THAN 18 BITS WILL GENERATE ERRORS. 
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6.3.6 EXTENDED STATUS REGISTER 3 (XSTATS) - 


iS 14 - val a nn roel ved rid 06 pel 04 03 02 O1 00 


ee ee ee ee ee ee ee 2 2 ee ee oe ~-=-0@ O@- += 6 2 +e 6+ +s ~-<-@<+++6=+<<6 . 


>» ERROR ADDRESS MOST * SIGNIFICANT Erte ) ,OPT} REV )TCH)STP) > ) RIB) 


eee ee eee eee eee Me ees ee ee ee ee ee eee ee eee ee © 0-+--6-+-6---8 


> ) 
> TERMINATION > 
; BIT NAME CLASS DEF INITION > 
pipe ete oe) CO OS PR eye > 
>) 15-08 EAD 15-08 Ss ERROR ADORESS MOST SIGNIFICANT BYTE. > 
) IF XSTAT 1 BIT 14 IS 1, THE ADDRESS IS } 
> THE PROGRAM COUNTER IN THE SIA, AND ) 
> IF O IN THe TCS. ; 
, 07 - . NOT USED. ; 
> 6 OPI 6 OPERATION INCOMPLETE: SETS IF 16 FEET > 
> OF TAPE WITHOUT DATA PASSES THE READ > 
> HEAD ON READ, SPACE, OR SKIP OPERATIONS > 
, OR 4 FEET OF TAPE IN WRITE OPERATIONS. 2 
> OS REV S REVERSE: INDICATES REVERSE IS THE > 
; DIRECTION OF CURRENT TAPE OPERATION. ; 
> 04 TCH 7 NO TACHS: INOICATES THAT CAPSTAN MOTOR ) 
) DID NOT START OR THAT TACHS ARE NOT > 
, BEING GENERATED OR DETECTED. : 
> O83 ste S/6 STRIPE: SERVO STRIPE IS FAULTY OR > 
) MISSING. ? 
, 02 - - NOT USED. ; 
) 01 . - NOT USED. , 
> 00 RIb 2 REVERSE INTO BOT: SETS WHEN REVERSE ) 
) OPERATIONS ENCOUNTER THE BOT EARLY > 
? WARNING HOLE AFTER TAPE IS IN MOTION. > 


SEQ 0041 


HEADER 


002000 


AND TABLES 


002000 


060 
000001 
005000 
027750 
030022 
002176 
002204 
031510 
000000 
000000 
000001 
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. TITLE PROGRAM HEADER AND TABLES 
.SBTTL PROGRAM HEADER 

-ENABL ABS,AMA 

. 2000 

BGNMOD 


THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNSW,BGNSF T,BGNAU,BGNDU,BGNSE TUP 


HEADER CZTKI,A,0,5000,1, INTPRI 


LSNAME:: sOIAGNOSTIC NAME 

-ASCII /C/ 

-ASCII /2Z/ 

-ASCII /T/ 

-ASCII /K/ 

ASCII /I/ 

-BYTE QO 

.BYTE (?) 

BYTE 0 
LSREV:: sREVISION LEVEL 

-ASCII /A/ 
L$DEPO:: 30 

-ASCII /0/ 
LSUNIT:: sNUMBER OF UNITS 

. WORD TSPTHV 
LSTIML:: ;LONGEST TEST TIME 

.WwORD 5000 
LSHPCP:; sPOINTER TO H.W. QUES. 

WORD L SHARD 
L$SPCP:: sPOINTER TO S.W. QUES. 

.WORD LSSOFT 
LSHPTP:;: sPTR. TO DEF. H.W. PTABLE 

-WORD LSHW 
LSSPTP:: sPTR. TO S.W. PTABLE 

.WORD LS$SW 
L$LAODP:: sDIAG. END ADDRESS 

-WORD LSLAST 
LSSTA:: sRESERVED FOR APT STATS 

.WORD O 
L$Co:: 

.WORD O 
LSOTYP:: sOIAGNOSTIC TYPE 

. WORD 1 
LSAPT:: ;APT EXPANSION 

.WORDB O 
LSOTP:: sPTR. TO DISPATCH TABLE 

~WORD LSOISPATCH 
LSPRIO:: ;DIAGNOSTIC RUN PRIORITY 

. WORD INTPRI 
LSENVI:: 3FLAGS DESCRIBE HOW IT WAS SETUP 


«WORD OO 


SEQ 0042 


2041 


AND TABLES 


023710 
023644 
000000 
002140 
104035 
000000 
021664 
023602 
023160 
021656 
000000 
000000 
000000 
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LSEXPL:; 
LSMREV:: 


LSEF:: 


L$SPC:: 
LSDEVP:: 
LSREPP:: 
LSEXP4:; 
LSEXPS:: 
LSAUT:: 
L$OUT:: 
L$LUN:: 
L$DESP:: 
L$LOAD: : 
LSETP:: 
LSICP::; 
LSCCP:: 
“ LSACP:: 
LSPRT:: 


LSTEST:: 


LSOLY:: 
LSHIME:: 


sEXPANSION WORD 
sSVC REV AND EDIT @ 


sDIAG, EVENT FLAGS 


s POINTER TO DEVICE TYPE LIST 
sPTR. TO REPORT CODE 


:PTR. TO ADD UNIT CODE 

sPTR. TO DROP UNIT CODE 

sLUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
sGENERATE SPECIAL AUTOLOAD EMT 
sPOINTER TO ERRTBL 

sPTR. TO INIT CODE 

sPTR, TO CLEAN-UP CODE 

sPTR. TO AUTO CODE 

;PTR. TO PROTECT TABLE 

;TEST NUMBER 

;DELAr COUNT 

3;PTR. TO HIGH MEM 


0 


CSREVISION 
CsEDIT 


0) 
\°) 


0 
LsOvTyvP 
LSRPT 

0 

0 

L$AU 
LsOu 

i) 
L$DESC 
E$LOAD 
° 
LSINIT 
LSCLEAN 
L$AUTO 
LSPROT 
0 

te) 

0 


SEQ 0043 
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DISPATCH TABLE SEQ 0044 
2049 -SBTTL OISPATCH TABLE 
2050 
2051 zee 
2052 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
ons ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
=? 
2055 
2056 002122 DISPATCH 6 3s SIX TESTS 
002122 000006 «WORD 6 
002124 LSDISPATCH: : 
002124 024004 WORD Til 
002126 025372 a Te 
002130 026046 -WORD 13 
002132 026524 -WORD 14 
002134 026670 WORD TS 
002136 027002 «WORD T6 
2057 
2064 
2065 -SBTTL DESCRIPTIVE TEXT 
2066 
2067 pee 
os 32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVICE UNDER TES 
g-- “ 
2070 
2071 002140 DESCRIPT <DATA RELIABILITY TEST> 
002140 L$DESC:: 
002140 104 101 124 -ASCIZ /OATA RELIABILITY TE 
002143 101 040 122 
002146 105 114 111 
002151 101 102 111 
002154 114 111 124 
002157 131 040 124 
002162 105 123 124 
002165 000 
-EVEN 
2072 002166 DEVTYP <TK25> 
002166 LSDOVTYP:: 
002166 124 113 062 eASCIZ /TK25/ 
002171 065 000 


-EVEN 
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HARDWARE P - TABLE 


.SBTTL DEFAULT HARDWARE P-TABLE 
yee 
; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
: THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
3; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
3 -—- 

002174 BGNHW OFPTBL 

002174 000002 

002176 LSHW:: 

002176 DFPTBL:: 

002176 172522 172522 ;TSSR ADDRESS. 

002200 000224 224 ;VECTOR ADDRESS. 

002202 ENOHW 


002202 L10000: 


. WORD 


SEQ 0045 


L10000 -L $HW/2 
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SOFTWARE P -TADLE SEQ 0046 
2097 .SBTTL SOFTWARE P-TABLE 
2098 
2099 zee 
2100 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
pipe ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
1 aoe 
2103 002202 BGNSW SFPTBL 
002202 000043 «WORD 1L10001-i$SW/2 
002204 L$SW:: 
002204 SFPTBL:: 
2110 002204 001 CLRFLG:: .BYTE 1 ;CLEAR COUNTERS FLAG. 
2111 002205 000 RRANV:: .BYTE 0 sRESET RANDOM VARIABLES EACH PASS FLAG. 
2112 002206 000 HAE: : .BYTE f¢) sHALT AFTER EACH COMMAND FLAG. 
2113 002207 000 ERCVER:: .BYTE i?) sENABLE RECOVERABLE ERROR PRINTS FLAG. 
2114 002210 000 IREC:: .BYTE i?) ; INHIBIT ERROR RECOVERY FLAG. 
2115 002211 001 BADTSW:: .BYTE 1 :BAD TAPE SWITCH TO REWRITE ON SAME SPOT € DETECT BAD TAPE 
2116 002212 000 DINT:: .BYTE t?) sOISABLE INTERRUPTS FLAG. 
2117 002213 000 PIRE:: BYTE i?) s INHIBIT RESIOUAL FRAMECOUNT ERROR REPORT FLAG. 
2118 002214 000 RAMWRT:: .BYTE 0 sENABLE OPTIONAL RAM DUMP 
2119 002215 000 .BYTE 0 3 SPARE 
2120 002216 000 EWPRNT:: .BYTE ° sENABLE EARLY WARNING END OF TRACK STATUS PRINTS 
yt 002217 000 CHGFLG: ran 0 sCHANGE CMD SEQ TABLE FLAG. 
2123 002220 000040 CHAR:: CH.EAI sCHARACTERISTICS CODE (DEFAULT = 40). 
2124 002222 000015 CMOD:: .WORD 13. sCOMMAND 2 (DEFAULT = REWIND). 
2125 002224 000001 . WORD 1 ;BYTE COUNT 
2126 002226 000001 . WORD 1 sNUMBER OF Cees 
2127 002230 000007 -WORD RANP } RANDOM CATA 
2128 002232 000004 -WORDB 4 :COMMAND 3 (DEFAULT = WRITE) 
2129 002234 010000 -WORD OATCNT iBYTE wy (DEFAULT = MAX BUFFER SIZE). 
2130 002236 035230 . WORD 15000. sNUMBER OF OPERATIONS (DEFAULT = 15000). 
2131 002240 000007 -WORD RANP ; RANDOM DATA 
2132 002242 000015 . WORD a3. sCOMMAND 4 (DEFAULT = REWIND) 
2133 002244 000001 WORD 1 ;BYTE COUNT 
2134 002246 000001 . WORD 1 ;ONE OPERATION 
2135 002250 000007 -.WORD RANP sRANOOM DATA 
2136 002252 000002 -WORDB 2 sCOMMAND 5 (DEFAULT = READ FWD). 
2137 002254 010000 -WORD DATCNT ;BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
2138 002256 035230 »WORD 15000. sNUMBER OF OPERATIONS (DEFAULT = 15000) 
2139 002260 000007 -WORD RANP sRANDOM DATA 
2140 002262 000033 -WORD 27. 3; TERMINATOR 
2141 002264 000001 WORD 1 ;B8YTE COUNT 
2142 002266 000001 . WORD 1 sNUMBER OF OPERATIONS 
2143 002270 000007 .WORD RANP ;PATTERN 
2144 002272 000033 »-WORDB 27. sEND OF CMD SEQ TABLE CODE (DEF) OR CMD 7 
2145 002274 010000 »-WORD DATCNT sBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
2146 002276 035230 .» WORD 15000. sNUMBER OF OPERATIONS (DEFAULT = 15000). 
2147 002300 000007 3 .WORD RANP ;RANDOM DATA 
2148 002302 000033 . WORD 27. sEND OF CMD SEQ TABLE CODE (DEF) OR CMD 8 
2149 002304 010000 »-WORD DATCNT ;BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
2150 002306 035230 . WORD 15000. sNUMBER OF OPERATIONS (DEFAULT = 15000). 
2151 002310 000007 .WORD RANP sRANDOM DATA 
2152 002312 ENDSW 
002312 L10001 


PROGRAM HEADER AND TABLES 
SOFTWARE P - TABLE 


es 002312 


2185 002312 


14 
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.- TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


i¢ 
; THE GLOBAL EQUATES SECTION — PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE 
gee 


EQUALS 
; 
; BIT DIF INITIONS 


; 

BIT1S== 100000 
BIT14== 40000 
BIT13== 20000 
BIT12== 10000 
BIT11== 4000 
BIT10*= 2000 
BITO9== 1000 
BITO8== 400 
BITO7== 200 
BITO6== 100 
BITOS== 40 
BITO4== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 


; 

BIT9*= BITO9 
BITé== BITOS 
BIT7== BITO7 
BIT6== BITO6 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITOS 
BIT2*= BITO2 
BIT1i== BITO1 
BITO== BITOO 


; 
; EVENT FLAG DEFINITIONS 


; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


é 

EF .START== 32. 
EF .RESTART== Si. 
EF .CONTINVE == 30. 
EF .NEW== 29. 
EF .PWR== 28. 
é 


° 
; PRIORITY LEVEL DEFINITIONS 


é ~ 
PRIO7== 340 
PRIO6== 300 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 

A NEW PASS HAS BEEN STARTED 

A POWER -FAIL /POWER-UP OCCURRED 


SEQ 0047 
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GLOBAL EQUATES SECTION 


177761 


PRIOS=*= 240 
PRIO4*= 200 
PRIO3== 140 
PRIO2== 100 
PRIOL== 40 
PRIOO== 0 

: 

;OPERATOR FLAG BITS 
i 

EVL== a 
LOT== 10 
ADR== 20 
I0U== 40 
ISR== 100 
UAM== 200 
BOE == 400 
PNT== 1000 
PRI== 2000 


IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


; REGISTER USAGE. 


7 © © @F Ge @+ oF oF oF 
D 
w 

ee eenrneee 


J4 


PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR. 
COMMAND SEQUENCE TABLE POINTER. 

GENERAL PURPOSE REGISTER. 

GENERAL PURPOSE REGISTER. 

GENERAL PURPOSE REGISTER. 

CURRENT LOGICAL DEVICE NUMBER x 2. 

STACK POINTER. 
PROGRAM COUNTER. 


;THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 


TS.SC==100000 
TS. UPE==40000 
TS.SPE==20000 
TS.RMR==10000 
TS.NXM==4000 
TS.NBA==2000 
TS.A17#*#1000 
TS.A16==400 
TS.SSR*=200 
TS.OFL==100 

TSC .FCC##177717 
TSC. 1CC#*177761 


:SPECIAL CONDITION BIT. 
sUNIBUS PARITY ERROR 
;SERIAL BUS PARITY ERROR. 


sREGISTER MODIFICATION REFUSED. 


sNON-EXISTENT MEMORY. 

sNEED BUFFER ADDRESS. 

:BUS ADDRESS BIT 17. 

3BUS ADDRESS BIT 16. 

;UNIT READY BIT. 

;OFF LINE. 

sFATAL CLASS CODE MASK. 

; TERMINATION CLASS CODE MASK. 


SEQ 0048 
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GLOBAL EQUATES SECTION SEQ 0049 
2221 ;THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 
2223 100000 ACK .C==100000 sACKNOWLEDGE BIT 
2224 040000 CvC.C==40000 sCLEAR VOLUME CHECK. 
2225 020000 OPP .C==20000 sOPPOSITE BIT 
2226 010000 SWB .C*==10000 ;SWAP BYTE BIT 
2227 004000 MOD .C3==4000 sMODE GIT 3 
2228 004000 BRF .C==4000 sBYTE/RECORD/FILE COUNT FLAG BIT. NOT USED 
2229 ;B8Y TK2S5 BUT USED INTERNALLY BY THIS PROGRAM ONLY. 
2230 002000 MOD .C2==2000 sMODE BIT 2 
2231 001000 MOD .C1==1000 sMODE BIT 1 
2232 000400 MOD .CO==400 sMODE BIT O 
2233 000200 IE.C==200 s INTERRUPT ENABLE 
2234 000100 FMT .C1==100 s;FORMAT BIT 1 
2235 000100 vFY.C==100 ;WRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 
2236 sNOT USED BY TK25. 
2237 000040 FMT.CO==40 sFORMAT BIT O. 
2238 000040 JMP .C==40 ; JUMP BIT-TO DIRECT THIS PROGRAM TO JUMP TO 
2239 3A CERTAIN LOCATION IN THE COMMAND SEQUENCE 
2240 sTABLE. INTERNAL USE ONLY. 
2241 000020 CMD .C4==20 ;COMMAND BIT 4 
2242 000020 OLY.C==20 s INSERT DELAY. INTERNAL USE ONLY. 
2243 000010 CMD.C3==10 ;COMMAND BIT 3 
2244 000004 CMD.C2==4 ;COMMAND BIT 2 
2245 000002 CMO.C1==2 ;COMMAND BIT 1 
aoee 000001 CMD.CO==1 ;COMMAND BIT O 
ones ; BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 
2250 000200 CH.ESS==200 sENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT). 
2251 000040 CH.EAI==40 sENABLE ATTENTION INTERRUPTS. 
2252 000020 CH.ERT==20 sENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
oes 000040 DF TSCH==CH.EAI ;DEFAULT CHARACTERISTICS CODE. 
2255 3; THE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 
oe ;IN THE MESSAGE BUFFER. 
2258 000004 MS.RFC==4 ;RESIDUAL FRAME COUNT. 
2259 000006 MS .XSO==6 sEXT STATUS REG O 
2260 000010 MS.XS1==10 ;EXT STATUS REG 1 
2261 000012 MS.XS2*=*12 3;EXT STATUS REG 2 
aoee 000014 MS.XS3==14 s;EXT STATUS REG 3 
904 ;THE FOLLOWING ARE BIT GEFINITIONS FOR EXTENDED STATUS REGISTER O. 
2266 100000 XC. TMK ==100000 ;TAPE MARK. 
2267 040000 x0. RLS==40000 sRECORD LENGTH SHORT. 
2268 020000 x0.LET==20000 ;LOGICAL EOT. 
2269 010000 XO. RLL==10000 sRECORD LENGTH LONG. 
2270 000100 XO. ONL ==100 3;ON LINE BIT. 
2271 000002 x0.B0T==2 ;B0T BIT. 
ae7e 000001 xO.E0T==1 ;EOT BIT. 
eer ;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1. 
2276 900010 X1.EWN==BIT3 


GLOBAL 
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GLOBAL EQUATES SECTION 


100000 


177740 


100013 


104001 


104401 


104005 


104105 


104010 


L4 


; THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 


X2. OPM==100000 


sOPERATION IN PROGRESS, TAPE MOVING 


THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 
x3.0CK==10 


x3. RNY==157400 


sDENSITY CHECK. 
sCAPSTAN RUNAWAY UDIAG ERROR CODE. 


; THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 


sPACKET ENTRIES. 


cP.CMD==0 


CP.CNT==6 


INTPRI==PRIO7 


sCMOPKT+O==TK25 COMMAND. 
sCMDPKT+2==BUFFER ADDRESS LOW. 
sCMDPKT+42*8UFFER ADDRESS HIGH. 
sCKOPKT +6==BYTE/FILE/RECORD COUNT 


MISCELLANEOUS DEFINITIONS. 


SCHCNT==10 


MSGCNT ==16 
OIACNT==20 


DATCNT ==4096. 


RNOPSC ==177740 
RANP ==7 


RRECL==16. 
WRECL==16. 


RANBC == 153624 
RANSC==32561 
NINUSE =*177774 


sPRIORITY TO BE USED IN INTERRUPT STATE. 
sARBITRARY BYTE LENGTH FOR CHARACTERISTIC 

sBUFFER LENGTH. CEVEN @) 

sMESSAGE BUFFER LENGTH IN BYTES. CEVEN @) 
sOIAGNOSTIC COMMAND BUFFER EXTENT. 

sMAXIMUM RECORD LENGTH IN BYTES, 

sTHIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSURE 


;PROPER READ/WRITE BUFFER ALLOCATION BY THE SUPER. 


sRANDOM @ OF OPERATIONS MASK. 

sCODE TO SELECT RANDOM PATTERN. 

sREAD RECOVERY ATTEMPT LIMIT. 

sWRITE RECOVERY ATTEMPT LIMIT. 

sCONSTANT USED TO RESET RANDOM @ GENERATOR BASE. 
sCONSTANT USED TO RESET RANDOM @ SAVE LOCATION. 
sNOT IN USE CODE FOR DEVICE STATE TABLE. 


NCMD.C==ACK.C!CvC.C!0PP.C!Swe. C!MOD. C3!MOD . C2!M0D.C1!MOD.CO!IE.C!FMT.CLIFMT.CO 


sNOT “COMMAND” BITS. 


3 THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TK25 COMMAND. 


ORI== 


ROF == 


RDR== 


WRT== 


WIv== 


SRF == 


ACK 


ACK 


ACK 


ACK 


ACK 


ACK 


-C!BRF .C!CMD.CO 


-CIBRF .C!CMD.C3 


-C!CMD.C3!CMD.C1!CMD.CO 


sORIVE INIT. 


;READ FORWARD 


-CIBRF .C!MOD.CO!CMD.CO 


sREAD REVERSE 


-C!IBRF .C!CMD.CO!CMD.C2 


sWRITE COMMAND 


-CIBRF .C!vFy.C!CMD.CO!CMD.C2 


sWRITE VERIFY 


+SPACE RECORD FORWARD 


SEQ 0050 
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GLOBAL EQUATES SECTION SEQ 0051 
2335 104410 SRR== ACK .C!BRF .C!MO0D.CO!CMD.C3 
osst sSPACE RECORD REVERSE 
2338 105401 RNR == ACK .C!BRF .C!M00.C1!M0D.CO!CMD.CO 
ere sREAD REV RETRY1 - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 
2341 125401 RNF == ACK .C!BRF .C!0PP.C!M0D.C1!MO0D.CO!CMD.CO 
cose ;READ REV RETRY2 - REREAD NEXT FORWARD, IE.READ FORWARD, SPACE REVERSE 
2344 105001 RPF== ACK.C!IBRF.C!MOD.C1!CMD.CO » 
ores ;READ FWD RETRY1 - REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORWARD 
2347 125001 RPR== ACK .C!BRF .C!OPP.C!M0D.C1!CMD.CO 
S309 ;READ FWD RETRY2 - REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORWARD 
2350 105005 WRR== ACK.C!MOD.C1!BRF .C!CMD.C2!CMD.CO 
coat sWRITE RETRY 
2353 102010 RWD== ACK.C!M0D.C2!CMD.C3 
bea ;REWIND COMMAND 
2356 100012 MBR== ACK.C!CMD.C3!CMD.C1 
coon sMESSAGE BUFFER RELEASE 
2359 100011 WTM== ACK.C!CMD.C3!CMD.CO 
cot ;WRITE TAPE MARK. 
2362 101011 WTR== ACK.C!MO0D.C1!CMD.C3!CMD.CO 
coos ;WRITE TAPE MARK RETRY. 
2365 105010 SFF == ACK .C!BRF.C!MOD.C1!CMD.C3 
eat ;SPACE FILE FORWARD 
2368 105410 SFR== ACK.C!BRF.C!MO0D.CO!MOD.C1!CMD.C3 
oes ;SPACE FILE REVERSE 
2371 100017 GES== ACK.C!CMD.CO!CMD.C1!CMD.C2!CMD.C3 
oere ;GET EXTENDED STATUS 
2374 100411 ERS== ACK.C!MO0D.CO!CMD.C3!CMD.CO 
cere s;ERASE 3 INCHES OF TAPE 
2377 100412 UNL== ACK,.C!MOD.CO!CMD.C3!CMO.C1 
oe ;UNLOAD COMMAND 
2380 101012 CLN== ACK.C!MOD.C1!CMD.C3!CMD.C1 
eoes ;ERASE TAPE. 
soe 140004 SCH== ACK.C!CVC.C!CMD.C2 ;SET DEVICE CHARACTERISTICS. 
ba 100006 DIA== ACK.C!CMD.C2!CMD.C1 ;DIAGNOSTICS. 
ed 000040 JMP== JMP.C ; JUMP TO “N”TH COMMAND 
2389 000020 OLY== OLY.C ;DELAY “N” MS, - 
2390 


2391 177777 END == 177777 sEND OF COMMAND SEQUENCES 
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002314 
002316 
002320 
O0e322 


002324 


002330 


002334 
002336 


002340 


002356 
002374 
002412 
002430 
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-SBTTL GLOBAL DATA SECTION 


i* 
; THE GLOBAL DATA as CONTAINS DATA THAT ARE USED 


; IN MORE THAN ONE TEST 


COMMAND PACKET. 


CMDPKT:: © 


RWCPK: : 


MSGPKT:: 


i?) 
ie) 
.¢) 


sMUST BE ON MOD 4 BOUNDRY. 
31ST WORD IS TK25 COMMAND. 

s2ND WORD IS THE BUFFER LOW ADORESS. 
:3RO0 WORD IS THE BUFFER HIGH ADDRESS 


4TH WORD IS THE BYTE/RECORD/FILE COUNT. 


GET STATUS COMMAND PACKET. 


. WORD 


sMUST BE ON MOD 4 BOUNDRY. 


MESSAGE BUFFER RELEASE COMMAND PACKET. 


. WORD 


sMUST BE ON MOD 4 BOUNDRY. 


REWIND COMMAND PACKET CUSED IN ERROR RECOVERY ONLY) 


. WORD 
. WORD 


1 


sMUST BE ON A MODULE 4 BOUNDARY. 


WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 


-BLKW 7 


MESSAGF PACKETS. 


-BLKW 7 
-BLKW 7 


-BLIKW 
-BLKW 


7 
7 


31ST WORD:: MESSAGE TYPE. 

s2ND WORD:: DATA FIELD LENGTH. 
73RD WORD:: RESIDUAL FRAME COUNT. 
;4TH WORD:: XSTATO 

;5TH WORD:: XSTAT1 

;6TH WORD:: XSTAT2 

37TH WORD:: XSTATS 


sMESSAGE PACKET FOR DEVICE #0 
sMESSAGE PACKET FOR DEVICE #1 
sMESSAGE PACKET FOR DEVICE #2 
sMESSAGE PACKET FOR DEVICE #3 


SEQ 0052 
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002356 
000000 


000016 
000040 


177774 
177774 
177774 
177774 
177777 


003000 
003052 
003124 
003176 


r SET CHARACTERISTIC BLOCK. 
SCHBK:: MSGPKO 
° 32ND WORD:: MSGPKT ADOR H 
MSGCNT — WORD:: MSG BUFFER LENGTH (BYTES) 
CH.EAI 
3 TK25 REGISTER ADDRESSES. 
TSOB:: .6LKW 4 sTK25 DATA BUFFER ADDRESSES. 
TSSR:: .BLKW 4 3TK25 STATUS REGISTER ADDRESSES. 
TSVCT:: .6LKW 4 3TK25 VECTOR ADDRESSES. 
TSBA=*TSOB sDATA BUFFER ADDRESS REGISTER. 
3 ADDRESSES OF MESSAGE PACKETS. 
MSGPKA:: MSGPKO sOEVICE O. 
MSGPK1 sOEVICE 1. 
MSGPK2 sDEVICE 2. 
MSGPK3 sOEVICE 3. 
3 ADDRESSES OF INTERRUPT HANDLING ROUTINES. 
TS4INT:: TS&4INO sOEVICE O. 
TS4IN1 sDEVICE 1. 
TS4IN2 sOEVICE 2. 
TS4IN3 sOEVICE 3. 
3 TK25 CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
TS4CL:: O sDEVICE O 
(?) sOEVICE 1 
(9) sDEVICE 2 
re) sDEVICE 3 
3 UNIT NUMBERS OF ALL DEVICES BEING TESTED( 1-4). 
3 WHEN DEVICE IS NOT IN USE, IT,S LOCATION WILL = - 
Fy RS WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER e x 
OEVTBL:: .WORD WNINUSE 
.WORD NINUSE 
.WORD NINUSE 
-WORD NINUSE 
.WORD END 
Fy BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
: “WRTY” TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 
BTADOR:: BTO 
BT1 
BT2 


BTSs 


BS 


SEQ 0053 


s1ST WORD:: MSGPKT ADDR _— UP Br EXCUTE ROUTINE). 


34TH WORD:: CHARACTERISTICS WORD(SET BY SETUP ROUTINE). 
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002560 


’ COUNTER 


CNTBGN=, 
WRBC:: .BLKW 
RRBC:: .BLKW 
RFBC:: .BLKW 
WRREC:: .BLKW 
WRUNR:; .BLKW 
RRREC:: .BLKW 
RRUNR:: .BLKW 
RFREC:: . 


VF YCNT:: 
HROCNT: : 
FTLCNT:: 
CNTEND=. 


RECCNT:: .6LKW 


2 


AREA, 


' 
o 


BY SSSSSSEe 


> LShSSShSvv 
— 


CNTLEN® =CNTEND -CNTBGN 


HERE : .BYTE O sTEST 3 ASCII SEMAPHORE 
Fy THE FOLLOWING ARE THE DEF INIT TONS OF VARIABLES 
3 USED BY THE PROGRAM, 
.EVEN 
RAMHLD: .WORD O sRAM ADOR HOLDER 1ST ADDRESS 
RAMRSH: .WORD O sHOLOS RS FOR LATER 
RAMOATA::.BLKW 16. sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
te hd .~ WORD 4 sRAM DATA SIZE FOR PRAMPKT ROU" INE 
DATRAT:: .WORD 3 sCONTROLS THE DATA COMPARE RATIO 
DATAWT:: f¢) ;WRITE BUFFER ADORESS. 
DATARD:: .WORD O sREAD BUFFER ADDRESS. 
NCNT:: -WORD O sSTORAGE FOR VALUE OF N 
NCNT1:: .WORD O sTEMP STORAGE FOR VALUE “OF NL 
BRFCNT:: .WORD O sSTORAGE FOR BPCR VALUE. 
CMO : .WORD ENO sCONTAINS COMMAND 
CMOSAV:: .WORD ENO sSAVE LOCATION FOR CMD WORD DURING ERROR RECOVERY 
PCMOWD:: .WORD END sCONTAINS PREVOUS COMMAND WORD. 
CMOLG: -WORD O sCURRENT COMMAND LOGGING CODE 
LENMSK:: .WORD O sRANDOOM WRITE LENGTH MASK, 
RANB: : -WORD 153624 sRANOOM @ GENERATOR BASE. 
RANS:: -WORD 32561 sRANOOM @ SAVE LGCATION. 
TIME1:: .WORD O sTIME COUNT 1. 
TIME2:: .WORD O s TIME COUNT 2. 

OOP:: .WORD O 3JMP COMMAND LOOP COUNT. 
JLOC: .WORD 9 3JMP COMMAND LOCATION COUNT. 
PATERN: ~WORD O | PATTERN SELECT CODE. 


sBYTES WR 


ITTEN. 


sRECOVERABLE WRITE ERRORS. 
sUNRECOVERABLE WRITE ERRORS. 
sRECOVERABLE READ REV ERRORS. 
sUNRECOVERABLE READ REV ERRORS. 


sRECOVERABLE READ FWOE 


RRORS. 


sUNRECOVERABLE READ FWD ERRORS. 


sUNIT OB 
sUNIT 1 8 
sUNIT 2 B 
sUNIT 3 B 
sWRITE RE 


AT TAPE SPOTS LOG 
AT TAPE SPOTS LOG 
AT TAPE SPOTS LOG 
AT TAPE SPOTS LOG 
TRY COUNTER 


sPASS COUNT. 


s SPECIAL 


CONDITION C 


OUNT. 
:COUNT OF TK25 DATA COMPARE ERRORS. 


sCOUNT OF 
sCOUNT OF 


HARD ERRORS. 
FATAL ERRORS. 


sEND OF STATICTICAL COUNTERS. 


sNUMBER OF RECOROS FROM BOT: 


CLEARED ON REWIND 


sAND WHEN RESTARTING OR CONTINUING TEST 2. 
sLENGTH OF STATISTICAL COUNTER AREA, 


SEQ 0054 


sCOUNTS @ OF READS (TEST 3) BEFORE ALLOWING A DATA COMPARE 


WORD BEING EXECUTED PRESENTLY. 


TO BE SET UP By TESTS 


AL AREAS 


g 
ggg sssgesgegeees 


GLOB MACRO M1200 21 MAR-84 16:45 P 
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SEQ 0055 

CTCC:: «WORD 0 sCURRENT TERMINATION CLASS CODE. 
RSSAVE:: .WORD 0 sLOCATION FOR SAVING CURRENT DEVICE POINTER. 
TSSREG:: .WORD 0O sCURRENT STATUS REGISTER 
OIABLK=*=DATAWT ;WRITE BUFFER ALSO USED FOR DIAG CMD. 
’ ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
: AFTER EACH COMMAND IS COMPLETED. 
BGNFLG=, 
RETRYC:: .WORD 0 OF RECOVERY ATTEMPTS EXECUTED. 
RPTCNT:: .BYTE O sWRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 
WRTYFG:: .BYTE O sWRITE RETRY ON SAME SPOT IN PROGRESS FLAG 
WRTYER:: .BYTE 0 sWRITE RETRY ON SAME SPOT ERROR FLAG 
RECLOG:: .BYTE O sRECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
ERLOG:: .BYTE 0 sDATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS RECORD. 
RWERR:: .BYTE 0O sREAD/WRITE ERROR HAS OCCURED. 

Cs: YTE 0 sUNRECOVERABLE ERROR HAS OCCURED. 
ERRREC:: .BYTE O sERROR RECOVERY MODE. 

EVEN 
ENDERF = 
; ADDITIONAL F THESE FLAGS ARE CLEARED DURING INITIALIZATION. 
INTFLG:: .BLKW 4 s INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
EOTFLG:: .BLKW 4 sEOT/BOT FLAGS FOR EACH DEVICE (XSTATO). 
BTPT:: -WORD O sBAD TAPE SPOT POINTER TO BTO-873 VIA BTADOR 
EXPBOT:: .BYTE O sB0T IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 
RANDOM:: .BYTE 0 sRANDOM EVERYTHING FLAG. 
VFYFLG:: .BYTE O sSET OURING WRITE/VERIFY COMMAND. 
RPTFLG:: .BYTE O sPERFORMANCE REPORT HAS BEEN REQUESTED. 
SWBFLG:: .BYTE 0O sENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO. 
LOOPCT::.BYTE 90 sWRITE LOOP CONTROL (TEST 3) 
IRE: : BYTE O s INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
DROPED:: .BYTE O sCURRENT UNIT HAS BEEN DROPPED 
T1iSWB:: .BYTE O sTESTL SWAP BYTES FLAG 
ALLEOT:: .BYTE O sALL UNITS @ EOT FLAG 
STREAM:: .BYTE O s INDICATES TEST ONE UNIT AT A TIME, COMPLETELY. 
ERSFLG:: .BYTE O sERASE FLAG: DO ERASE AFTER A SPACE REV TO DELETE 
sBADLY WRITTEN RECORD. 1 TO 4 ERASES LEAVING 
3A 3 TO 12 INCH GAP MAY RESULT. 
EVEN 

ENOFLG=. 
F ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 
STAFLG:: .BYTE O sSTART FLAG - SET BY INIT CODE IF STARTING. 
PWRFLG:: .BYTE O sPOWER FAILURE FLAG - SET ONLY DURING INIT. 
TRAPD4:: .BYTE O ;TRAPED AT 4 FLAG 
MISCFG:: .BYTE 0 sMISCELLANEOUS FLAG 


D5 
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000000 


177777 
177777 
177777 
177777 
177777 


OPFLAG:: 


CMOSEQ: : 


OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 


a 


SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 


. WORD 
-EVEN 


0 


sREAD ONLY OPERATOR FLAG WORD 


sTHE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
sHAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
sCAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 


-WORD 


SCH 
— 


RWO 
1 


sSET CHARACTERISTICS. 


sBYTE COUNT. 

sONCE. 

sPATTERN. 

;WRITE. 

3sMAX BUFFER LENGTH. 
315000 RECORDS. 
sPATTERN - RANDOM DATA 
sREWIND 

;BYTE COUNT 

3;ONE ITERATION 
sRANDOM DATA 

sREAD FWO. 

sMAX BUFFER LENCTH. 


sBYTE COUNT. 
sONCE. 
;PATTERN. 

sEXTENSION TO HOLD 1 MORE CMD. 
3SOFT END OF SEQUENCE TABLE. 


sHARD END OF SEQUENCE TABLE. 


SEQ 0056 


FS 
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GLOBAL DATA SECTION SEQ 0057 
ot + THE FOLLOWING IS THE TK25 COMMAND TABLE 
2645 003644 100015 CMDTBL:: .WORD ORI sORIVE INIT. 
2646 003646 104001 -WORD RDF sREAD FORWARD. 
2647 003650 104401 -WORD ROR sREAD REVERSE. 
2648 003652 104005 -WORD WRT sWRITE 
- 2649 003654 104105 -WORD WTV ;WRITE/VERIFY. CWRITE ALL RECORDS, ROR AND 
2650 sCHECK DATA ON ALL RECORDS, ROF AND 
2651 sCHECK DATA ON ALL RECORDS. ) 
2652 003656 104010 -WORD SRF sSPACE “N” RECORDS FORWARD. 
2653 003660 104410 «WORD SRR sSPACE “N” RECORDS REVERSE. 
2654 003662 105401 -WORD RNR sREAD NEXT REVERSE. I.E., SPACE FWD, READ REVERSE. 
2655 003664 125401 «WORD = RNF sREAD NEXT FORWARD, I.E., READ FORWARD, SPACE REVERSE. 
2656 003666 105001 -WORD  RPF sREAD PREVIOUS FORWARD. I.E., SPACE REVERSE, READ FORWARD 
2657 003670 125001 -WORD RPR sREAD PREVIOUS REVERSE. I.E., READ REVERSE, SPACE FORWARD 
2658 003672 105005 -WORD WRR sWRITE RETRY. 
2659 003674 102010 .WORD  RWOD sREWIND. 
2660 003676 100012 -WORD MBR sMESSAGE BUFFER RELEASE 
2661 003700 100011 -WORD WIM sWRITE TAPE MARK 
2662 003702 101011 -WORD WTR sWRITE TAPE MARK RETRY. 
2663 003704 105010 «WORD = SFF sSPACE “N” FILES FORWARD. 
2664 003706 105410 -WORD SFR sSPACE “N” FILES REVERSE. 
2665 003710 100017 -WORD GES 3GET ayo STATUS. 
2666 003712 100411 -WORD ERS sERASE 3 INCHES OF TAPE. 
2667 003714 100412 WORD UNL sREWIND AND UNLOAD. 
2668 003716 101012 «WORD CLN ;CLEAR TAPE. 
2669 003720 140004 -WORD SCH 3SET CHARACTERISTICS. 
2670 003722 100006 -WORD OIA sOIAGNOSTIC COMMAND 
2671 003724 000040 -WORD JMP ;JUMP TO THE NTH COMMAND IN THE SEQUENCE. 
2672 003726 000020 «WORD OLY ;DELAY “N” MS. 
2673 003730 177777 -WORD END sEND OF COMMAND TABLE 


G5 
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GLOBAL DATA SECTION SEQ 0058 
sors 3 THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 
2678 003732 104 122 111 CMDASC:: .ASCII /ORI/ sORIVE INIT. 
2679 003735 122 104 106 .ASCII /ROF/ sREAD FORWARD. 
2680 003740 122 104 122 -ASCII /RDR/ sREAD REVERSE. 
2681 003743 127 122 124 -ASCII /WRT/ sWRITE 
2682 003746 i27 124 126 -ASCII /WTV/ sWRITE/VERIFY. (CWRITE ALL RECORDS, ROR AND CHECK DATA 
2683 30N ALL RECORDS, RDF AND CHECK DATA ON ALL RECORDS.) 
2684 003751 123 122 106 -ASCII /SRF/ sSPACE “N” RECORDS FORWARD. 
2685 003754 123 122 122 -ASCII /SRR/ ;SPACE “N” RECORDS REVERSE. 
2686 003757 122 116 122 -ASCII /RNR/ sREAD NEXT REVERSE. I.E., SPACE FWD READ REVERSE. 
2687 003762 122 116 106 -ASCII /RNFZ sREAD NEXT FORWARD, I.E., READ FORWARD, SPACE REVERSE. 
2688 003765 122 120 106 -ASCII /RPF/ sREAD PREVIOUS FORWARD. IE., SPACE REVERSE, READ FORWARD 
2689 003770 122 120 122 -ASCII /RPR/ sREAD PREVIOUS REVERSE. IE., READ REVERSE, SPACE FORWARD 
2690 003773 127 122 122 -ASCII /WRR/ sWRITE RETRY. 
2691 003776 122 127 104 -ASCII /RWD/ sREWINOD. 
2692 004001 115 102 122 .ASCII /MBR/ sMESSAGE BUFFER RELEASE 
2693 004004 127 124 115 -ASCII /WTM/ sWRITE TAPE MARK 
2694 004007 127 124 122 -ASCIL /WTR/ sWRITE TAPE MARK RETRY. 
2695 004012 123 106 106 -ASCII /SFF/ sSPACE “N” FILES FORWARD. 
2696 004015 123 106 122 -ASCII /SFR/ sSPACE “N” FILES REVERSE. 
2697 004020 107 105 1c3 -ASCII /GES/ sGET EXTENDED STATUS. 
2698 004023 105 122 123 -ASCII /ERS/ sERASE 3 INCHES OF TAPE. 
2699 004026 125 116 114 -ASCII /UNL/ sREWIND AND UNLOAD. 
2700 004031 103 114 116 -ASCII /CLN/ ;CLEAN TAPE. 
2701 004034 123 103 110 -ASCII /SCH/ 3SET CHARACTERISTICS. WHERE BRF=200, 40, 20, O. 
2702 3;SEE TK25 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
2703 004037 104 111 101 -ASCII /DIA/ ;DIAGNOSTICS. SEE TK25 PROGRAMMING SPECIFICATION 
2704 sFOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC DATA 
2705 sINTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED. 
2706 004042 112 115 120 -ASCII /JMP/ 3 JUMP TO THE NTH COMMAND IN THE COMMAND 
2707 sSEQUENCE TABLE, WHERE N IS DEFINED IN 
2708 ~— sTHE @ OF OPERATIONS. 
2709 004045 104 114 131 -ASCII /DLY/ sDELAY “N” MS, WHERE N IS DEFINED IN 
2710 ;THE @ OF OPERATIONS. 
2711 004050 105 116 104 -ASCII /END/ 3END OF COMMAND SEQUENCE. 
2712 EVEN 
2713 
2714 
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HS 
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-SBTTL GLOBAL TEXT SECTION 


zee 

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
3; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

s MORE THAN ONE TEST. 


é 
; FORMAT STATEMENTS USED IN PRINT CALLS 
é 


-NLIST BEX 
CODELM: : —" /SNSAUNIT SD1SA TK25 CODE LEVEL PsO3sNSN/ 


HALTM:: .ASCIZ /XXX CMD - TYPE <CR> TO CONTINUE/ 
CMDPKM:: .ASC1Z /CMD PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD!/ 


-EVEN 
WTVERM:: .ASCIZ /DATA COMPARE ERROR/ 
TOERM:: .ASCIZ /NO TK25 RESPONSE/ 
SCERM:: .ASCIZ /UNDEFINED SPEC COND/ 
RFCERM:: .ASCIZ /RFC NON ZERO/ 
NSSRM:: .ASCIZ /TK25 NOT READY/ 
RLEXM:: .ASCIZ /RETRY LIMIT EXCEEDED/ 
ATTNM:: .ASCIZ /UNIT OFF LINE/ 
FUNRM:: .ASCIZ /FUNCTION REJECT/ 
FATSM:: .ASCIZ /FATAL SUBSYSTEM ERROR/ 
‘ /NO INTERRUPT/ 
TSAM:: .ASCIZ /TAPE STATUS ALERT/ 
TOOMM:: .ASCIZ /TOO MANY INTERRUPTS/ 
RNYM:: .ASCIZ /CAPSTAN RUNAWAY-GET STATUS RESULTS:/ 
RERM:: .ASCIZ /RECOVERABLE ERROR/ 
URERM:: .ASCIZ /UNRECOVERABLE ERROR/ 
DROPOM:: .ASCIZ /sSNSADROPPED UNIT sSD1SN/ 
AUDRPM:: .ASCIZ /sSNSAALL UNITS DROPPEDSNSN/ 
DTAER2:: .ASCIZ “sSNSABYTE : SD4SS28AWAS : SBSSSO8AS /B : SBSSN” 
DTAERS:: .ASCIZ “SD48A BYTES IN ERROR OUT OF SD4s8N” 
DTAER4:: .ASCIZ /SANO DATA READSN/ 
OTAERS:: .ASCIZ /#SARECORD TOO LONG: >#048A BYTESSN/ 
NURTY1:: .ASCIZ /#ARECOVERED ON RETRY OsD2sN/ 
OFLINM:: .ASCIZ /SAUNIT SD18A OFF LINESN/ 
GETSTM:: .ASCIZ /#AGET STATUS CMD RESULTS:@N/ 
CRLF:: .ASCIZ /sN/ 
CRLFSP:: .ASCIZ /sNSS7/ 
RAMFHR: .ASCIZ ‘SNSA seeeeeeeee CONTROLLER RAM DUMP sesccceces' 
RAMIOP: .ASCIZ ‘sNSA RAM ADDRESS COCTAL) = S038A - SO3sN’ 
RAMPD: .ASCIZ ‘#A SO38A ' 
RAMLIN: .ASCIZ ‘sNsNsN’ 
.LIST BEX 


Ln 
Zz 
4 
? 
> 
w 
o 
a 
N 


SEQ 0059 
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2793 


2794 
2795 
2796 


2797 
2798 


2799 
2800 
2801 
2802 


2603 


2804 
2805 
2806 


2807 
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010237 
010337 


010437 
004737 


013702 
010337 
013703 
013704 
013746 
012746 
012746 
010600 


104414 
062706 


000167 
000000 


104423 


-SBTTL GLOBAL ERROR REPORT SECTION 


IS 


‘° 
; THE GLOBAL ERROR REPORT ag te gh at at THE PRINTB AND PRINTX CALLS 


3; THAT ARE USED 
; THAT ARE USED 
gee 


BGNMSG 
DTAERM: : 
PRINTB 


PRINTB 


IN MORE THAN ONE T 


BY THE PRINTB AND PRINTX CALLS. 


OTAERM 


OSTAER1 ,.DEVTBL(RS),PASCNT(RS),RECCNTC(CRS) 


@STAER7 


LET RECRED :* R2 
LET TIMEL ;:= RS 
LET TIMES := R4 
JSR PC,RECTAP 


LET R2 


:* RECRED 


LET RECRED := R3 


LET R3 
LET R4 
PRINTB 


EXIT 


-EVEN 


ENOMSG 
L10002: 


:* TIME1 
:* TIME2 


@STAER6 ,RECRED 


MSG 


sSAVE R2 

MOV 
;SAVE R3 

MOV 
sSAVE R4 

MOV 
sRETRIEVE RECORD READ 
sRESTORE R2 

MOV 
sSAVE RECORD READ 

MOV 
sRESTORE R3 

MOV 
sRESTORE R4 


MOv 
sPRINT RECORD READ 


It ve wd INCLUDES THE ASCII MESSAGES 


SEQ 0060 
MOV RECCNTC(RS),-CSP) 
MOV PASCNT(RS), -(SP) 
MOV DEVTBLC RS), -(SP> 
MOV @STAER1, -(SP) 
MOV 04, -C€SP) 
MOV SP RO 
TRAP CSPNTB 
ADO #12,SP 
MOV @STAER7, -(SP) 
MOV #1, -(SP) 
MOV SP .RO 
TRAP CSPNTB 
ADO 04,SP 
R2,RECRED 
R3,TIMEL 
R4,TIME2 
RECRED,R2 
R3,RECRED 
TIME1 RS 
TIME?) ,R4 
MOV RECRED, -( SP) 
MOV @STAERG, -( SP) 
MOV @2, -(SP) 
MOV SP .RO 
TRAP CSPNTB 
ADD @6,SP 
«WORD JSJMP 
-WORD L10002-2.. 


TRAP CSMSG 


GLOBAL AREAS 
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2809 


2810 


2611 


2812 
2613 


2814 
2615 


2816 


2817 
2818 


2819 


2820 


J5 
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012746 


013702 
042702 


005302 
005702 
001016 
004737 
010337 


013746 
012746 


012746 


013746 
013746 


002314 
177740 


STAERM: : 


BGNMSG 
PRINTB 


STAERM 


PRINTB @STAER7 


LET R2 := CMDPKT CLR.BY 0177740 


LET R2 :* R2 - 1 

IF R2 EQ 00 THEN 
JSR PC,RECTAP 
LET RECRED := R3 
PRINTB @STAER6,RECRED 


ENDIF 
PRINTX @STAER2 


@STAER1 ,DEVTBL(RS),PASCNT(RS),RECCNTCRS) 


MOV 
BIC 


DEC 
sIF CMD IS A READ 
TsTt 


; THEN RETRIEVE 
3; AND 


MOV 
s TYPE RECORD READ 


50000$; 


PRINTX #STAERS,CMDPKT+2,CMDPKT+4,CMDPKT +6 


SEQ 0061 

MOV RECCNTC(RS),-CSP) 
MOV PASCNTC(RS),-(SP) 
MOV DEVTBLCRS), -CSP) 
MOV @STAER1, -( SP) 
MOV 04, -(SP 
MOV 2RO 
TRAP CSPNTB 
ADD #12,SP 
MOV @STAER7, -( SP) 
MOV #1, -(SP) 
MOV SP ,RO 
TRAP CSPNTB 
ADO 04,SP 
CMOPKT ,R2 
177740,R2 
Re 
R2 
50000$ 
R3,RECRED 
MOV RECRED, -( SP) 
MOV @STAERG, -(SP) 
MOV e2, -(SP) 
MOV SP RO 
TRAP CSPNTB 
ADD 06,SP 
MOV @STAER2, -(SP) 
MOV @1,-(SP) 
MOV SP RO 
TRAP CSPNTX 

@4,SP 
MO CTCC, -€SP) 
MOV TSSREG, -( SP) 
MOV MSGPKT +MS RFC, -( SP) 
MOV @TSOBCRS), -( SP) 
MOV CMOPKT , -( SP) 
MOV @STAERS, -( SP) 
MOV 06, -( SP) 
MOV SP ,.RO 
TRAP CSPNTX 

#16,SP 
MOV CMDPKT +6, -( SP) 
MOV CMDPKT «4, -( SP) 
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2821 
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013746 
012746 
012746 
010600 
104415 
062706 


013746 
013746 
013746 
013746 
012746 
012746 
010600 
104415 
062706 


000167 
000410 


045 


104423 


002316 
006433 


PRINTX 
EXIT 
Ist 
STAER1 ASCIZ 
VEN 
STAER7: .ASCIZ 
STAER6: .ASCIZ 
STAER2: .ASCIZ 
STAER3: .ASCIZ 
STAER4: .ASCII 
ASCII 
-ASCIZ 
STAERS: .ASCII 
-ASCIZ 
LIST 
EVEN 
RECRED: .WORD 
ENOMSG 
L10003: 


KS 


ADD 
@STAERS ,MSGPKT +MS .XSO,MSGPKT +MS.XS1,MSGPKT +MS.xXS2,MSGPKT «MS .xS3 
vo 


MSG 


BEX 


SEQ 0062 


CMOPKT +2, -(SP) 
@STAERG, -(SP) 
04, -(SP) 

SP ,RO 

CSPNTX 

#12,SP 


MSGPKT +MS.XSO, ts 
@STAERS, -( SP) 
os. -CSP) 


/#AXXX CMD FAILED - UNIT #D1SS3SAPASS: 8058S 3SARECORD : SDSSN/ 


/SAPREVIOUS CMD WAS XXX/ 

/%S11sA¢ RECORD READ: SD58A 4/ 

/ENSACMOPK TSSOSATSBASS4SSARF CSSSSATSSRESSSATCCEN/ 
/806%S28068S28068S28068SOND 1 SN/ 

/8068N/ 

/8068N/ 

/8068N/ 

/BAXSTOSBSASBAXST1SS4SAXSTOSS4SAXST SEN/ 

+ aaa temtaata uate 


.e) sRECORD READ FROM TAPE 


TRAP 


C$MSG 
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006552 005237 003476 


006560 005237 003500 


006566 005237 003502 


006574 005237 003504 


006600 000002 


» SOTTL 


& 
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GLOBAL SUBROUTINES SECTION 


i¢ 
; THE GLOBAL SUBROUTINES SECTION — THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST 


L10004 ; 


TS4IN1L:: 
LET INTFLG+2 := INTFLGe2 + 1 


L10005: 


TS4IN2:: 


L10006: 


TS4INS:: 


L10007: 


MODULES TO HANDLE TK25 INTERRUPTS. 


BGNSRV TS4INO 


“LET INTFLG :* INTFLG + #1 


ENOSRV 


BGNSRV TS4IN1 


ENDSRV 


BGNSRV TS4IN2 


LET INTFLGe4 ;:= INTFLG+4 + @1 


ENOSRV 


BGNSRV TS4IN3 


LET INTFLG*6 := INTFLG+6 + #1 
ENDSRV 


sDEVICE O. 
sSET INTERRUPT OCCURRED 
INC 


sDEVICE 1. 
;SET INTERRUPT OCCURRED 
INC 


DEVICE 2. 
;SET INTERRUPT OCCURRED 
INC 


s;DEVICE 3. 
;SET INTEPRUPT OCCURRED 
INC 


FLAG. 
INTFLG 


RTI 


FLAG. 
INTFLG+2 


RTI 


FLAG. 
INTFLG+4 


RTI 


FLAG. 
INTFLG+6 


RTI 


SEQ 0063 
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2888 
2889 


2890 
2891 


2892 
2893 
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032737 
001430 


013702 
063702 


032702 
001417 


005202 


111203 
142703 


000303 
005302 


105737 
001401 


005302 


111204 
142704 


050403 
000401 


011203 


0004 02 


€17703 


090207 


000400 


002344 
003416 


000001 


177400 


003524 


177400 


174520 


003426 


INPUTS: 
OUTPUTS: 
REGISTER 
CALLS: 


- oF of of oe oe 


S: 


M5 


R3_ = RECORD COUNT READ 
R2, R3, RA 


RECTAP:: IF @MOD.CO SETIN CMDWRD THEN 


sREAD REV FETCH 


BIT 


BEG 
LET R2 := MSGPKT+MS.RFC + DATARD ;FIND LAST READ AD. 


IF @BITOO SETIN R2 THEN 


LET 


LET 
LET 


R2 :* R2 + O1 


R3 := SWAP R3 


R2 


:* R2 - @1 


IFB SWBFLG NE #0 THEN 


LET R2 :* R2 - #1 


ENOI 


F 


MOV 


ADO 
:000 AD., REASSEMBLE 
BIT 


BEG 
sREC COUNT STARTING 
LET R3 :B= (R2) CLR.BY 177400 ;WITH UPPER 


; 
sLOWER BYTE AD. 


8 
sLOWER BYTE AD. 
DE 


LET R4 :B= (R2) CLR.BY #177400 ;FETCH LOWER 


LET R3 := R3 OR RG 


ELSE 


LET 
ENOIF 
ELSE 


LET R3 
ENDIF 


RTS 


R3 := (R2) 


:= @DATARD 


PC 


sMERGE BYTES 


sEVEN AD. FETCH 


sREAD FWO FETCH 


oo * tt TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 


@M00 .CO, CMDWRD 
50001% 


MSGPKT «MS .RFC ,R2 


DATARD ,R2 


@BITOO,R2 
50002$ 


INC R2 
BYTE FETCH 


MOVB 
BICB 


CR2),R3 
#177400,R3 


° 
R3 


CR2),R4 
#177400,R4 


R4,R3 
50004 $ 


CR2),R3 


50005 $ 


@DATARD RS 


SEQ 0064 


NS 
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006700 012701 003542 
2904 006704 012721 140004 
2905 006710 012721 000040 
2906 006714 012721 000001 
2907 006720 005721 
2908 006722 000207 


006724 012721 102010 
006730 012721 000001 
006734 012721 000001 


2922 006740 005721 
2923 006742 000207 


SETCH:: 


SETRW: : 


SUBROUTINE TO STORE A_ SET CHARACTERISTIC COMMAND AS 
THE FIRST ENTRY IN THE SEQUENCE TABLE. 


INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 


LET R1 :* #CMDSEQ 


MOV @SCH,(R1)+ 
MOV @OF TSCH,(R1)-+ 


MOV #1,CR1)+ 
TST (R1)+ 
RTS PC 


s INIT COMMAND ~— TABLE os 


@CMOS' 


Vv EQ.R 
sTHIS CODE SETS UP A SET CHARACTERISTIC 
OMMAND 


sC AS THE FIRST COMMAND IN T 
; SEQUENCE TABLE. 
;SKIP PATTERN LOCATION. 


SUBROUTINE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 


INPUTS: 

OUTPUTS: 
REGISTERS: 

CALLS: 

LET (R1)+ := ORWD 
LET CR1)+ := #1 
LET (R1i)+ := #1 


TST CR1)+ 
RTS PC 


;CMD = REWIND. 

MOV @RWD,CR1)+ 
;BRF. 

MOV #1,CR1)+ 
3 OF OPERATIONS. 

MOV #1,CR1)+ 


;SKIP PATTERN. 
;RETURN 


SEQ 0065 


GLOBAL AREAS 
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612701 


021127 
001527 
004737 


023737 
002116 
004737 


105737 
001435 


023727 
001031 


105737 
001026 


063737 
063737 
013737 
043737 


023727 
002003 


012737 


013737 


004737 
004737 


012702 
004737 


003542 


177777 
007706 


003420 
007600 
003521 


003426 


003522 


003442 
003440 
003442 
003436 
003424 


000022 


003424 


007240 
017706 


000001 
017300 


003422 


104005 


003440 
003442 
003424 
003424 
000022 


003424 


002322 


EXALL:: 


SEQ 0066 


owt TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 
Vv . 


INPUTS: 

OUTPUTS: R2 = TERMINATION INDICATOR (O*END OF TABLE,1*E0T) 
REGISTERS: 

LET R1 :* @CMDSEQ sINIT SEQUENCE TABLE POINTER. 


Vv @CMOSEQ,R1 
WHILE (R1) NE END DO sWHILE THERE Oe ee THE SEQUENCE TABLE. 


CMe (RL), @END 
500078 


BEQ 
JSR PC,SETUP 1GO SETUP THE COMMAND BLOCK 
WHILE NCNT LT NCNT1 DO sWHILE THER® ARE ego mg REMAINING: 
CMP NCNT .NCNT1L 
BGE 50011$ 
JSR PC,CMDAC sSTORE CMD ASCII IN ERROR MESSAGE. 
IFB RANDOM NE 00 THEN sIF IN RAtWOM MODE 


TSTB RANDOM 


BEQ 500128 
IF CMOWRD EQ OWRT THEN sIF CMD IS A WRITE THEN: 
CMP CMOWRD , OWRT 
BNE 5001358 
IFB VFYFLG EQ @O THEN ;IF DATA IS NOT TO BE VERIFIED THEN: 
TSTB VF YFLG 
BNE 50014$ 


LET RANB := RANB + RANS ;,GENERATE 


ADD RANS ,RANB 
LET RANS :* RANS + RANB ;RANDOM 


ADD RANB ,RANS 


LET BRFCNT ;:* RANS sLENGTH 
MOV RANS ,BRFE CNT 
LET BRFCNT :* BRFCNT CLR.BY LENMSK ,MASK RANDOM LENGTH. 
BIC LENMSK ,BRFCNT 
IF BRFCNT LT 018. THEN 300 NOT ALLOW BYTE COUNT OF LESS THAN i8. 
CMP BRFCNT, 018. 
BGE 500158 
LET BRFCNT :* 018. ;CHANGE COUNT OF 0-17 TO 18. 
MOV 018. ,BRFCNT 
ENDIF 
500153: 
LET CMOPKT»-CP.CNI := BREFCNT ;MOVE BRF TO CMO PACKET. 
MOV BRFECNT ,CMOPKT+CP.CNT 
ENOIF 
500148: 
ENOIF 
500138; 
ENDIF 
500128: 
JSR PC,EXSUB s ISSUE CMD TO ALL,AWAIT INTS,CHECK STATUS. 
JSR PC, CKHAE 3;CHECK HALT AFTER EACH CMD FLAG. 
LET R2 := @1 3SET ALL UNITS AT BOT/EOT. 
MOV @1,Re 
JSR PC,FIRSTU 3F IND FIRST UNIT, 


WHILE DEVIBLCRS) ME @END DO ;WHILE THERE ARE MORE UNITS: 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 


2980 
2981 


C6 
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026527 
001426 


032737 
001406 


032765 
001001 


005002 


000411 


032765 


004737 
000746 
020227 


001001 
000412 


005237 
013737 
000656 
004737 


002536 


000400 


000002 


017346 


003426 


016142 


177777 


003426 


003506 


003506 
003426 


003432 


IF @M0D.CO SETIN CMDWRD THEN 


IF @xO.BOT NOTSETIN EOTFLG(RS) THEN 


LET R2 := 00 
ENOIF 
ELSE 


SEQ 0067 


500168: 
CMP a 
BEQ 50017 
sIF CMD IS REVERSE "ae 
BIT tes CMOWRD 
500208 


BEG 
sIF NOT AT BOT THEN 
J Sensis” ,EOTFLGCRS) 


500. 
sCLEAR EOT/BOT FLAG. 
CLR Re 


50021$% 
sELSE IF CMD IS NOT REVERSE : 
BR 500228 


500208: 
IF @XO.EOT NOTSETIN EOTFLGCRS) OR a NOTSETIN CMDOWRO T 


LET R2 :* 00 
ENOIF 
ENOTIF 
a. PC,.NEXTU 


IF R2 EQ 1 THEN 


BR EXARTN 
ENDIF 
LET NCNT :* NCNT «+ 1 
LET PCMDWD := CMDWRD 
ENODO 
JSR = PC,VFYDAT 
ENDODO 
LET R2 :* 00 


EXARTN: RTS PC 


HEN 
It ox0.EOT ,EOTFLGCRS) 
BEQ 500238 
BIT @CMD .CO, CMOWRD 
BNE 50024 $ 


500235: 
3IF NOT AT EOT OR NOT A MOTION CMD THEN: 
;CLEAR EOT/BOT FLAG. 
CLR R2 


5002438: 
5002238: 

3sF IND NEXT UNIT 

3 
BR 50016$ 


50017 
IF ALL UNIT omy! E0t Bor THEN: 
BNE 
sRETURN WITH R2 = @1. 


500258: 
sUPDATE RECORD —: 


I NCNT 
sSAVE PREVIOUS — 


WORD. 
CMOWRD . PCMOWD 


BR 50010$% 

500118: 
sIF LAST CMD WAS A WRITE VERIFY, THEN GO 
sVERIFY THE LAST N RECORDS OF DATA, 


at 50006 $ 
sSET NORMAL ee THOicATOR, 


sRETURN, 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2993 


: 


g #3 


3008 


D6 
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004737 
026527 
001465 


032737 
001421 


032765 
001014 


032765 
001406 


105737 


001402 
004737 


000402 
004737 


000435 


023727 
001011 
032765 
001405 


016537 
005077 


032765 
001404 
032737 
001003 


017300 


010654 


177777 


003426 


003506 


003506 


000002 
003506 


003516 


003506 
003426 


SEQ 0068 
3 SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 
3 ALL INTERRUPTS, AND CHECK ALL STATUS, 
3 INPUTS: 
’ OUTPUTS: 
: REGISTERS: 
3 CALLS: EXCUTE ,GOWAIT ,NEXTU,FIRSTU. 
EXSUB:: JSR PC,FIRSTU sSET UP FOR FIRST UNIT. 
WHILE DEVTBLC(RS) NE @END DO ; WHILE THERE om DEVICES: 
$: 
CMP DEVTBLC( RS), END 
BEQ 50027% 
IF @M0D.CO SETIN CMOWRD THEN ;IF CMD IS REVERSE THEN: 
BIT OMOD .CO, CMDWRD 
BEQ 50030$ 
IF @xO.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT 
BIT x0. BOT ,EOTFLGC(RS) 
BNE 500318 
IF @XO.EOT SETIN EOTFLG(RS) THEN ;6UT IF AT EOT 
BIT @x0.EOT ,.EOTFLG(RS) 
BEQ 5003238 
IFB ALLEOT NE @0 THEN sAND ALL OTHERS AT EOT 
TSTB ALLEOT 
BEQ 500338 
JSR PC,.EXCUTE s THEN EXECUTE REV CMD 
ENOIF sIF NOT ehess, EOT, FREEZE UNIT(S) AT EOT 
ELSE ;IF NOT AT BOT AND 
8R 50034$ 
500328: 
JSR PC,EXCUTE sNOT aT EOT, EXEC REV CMD 
ENDIF 
500343: 
ENDIF 
500318: 
ELSE sELSE IF CMD IS NOT REVERSE: 
BR 500353 
50030$: 
IF CMOLG EQ #2 AND ©xO.BOT SETIN EOTFLG(RS) THEN 
CMP CMOLG, @2 
BNE 500368 
BIT othe eEOTFLGCRS) 


BEQ 500 
;CLEAR BAD SPOT COUNTS WHEN WRITING FROM BOT 


LET BIPT := BIADOR(RS) 

MOV BTADORC(RS) .BTPT 
LET @BIPT ;:= 00 

CLR aBTPT 


ENDIF 


50036 
IF @xO.EOT NOTSETIN EOTFLGCRS) OR OCMD.CO NOTSETIN CMOWRD THEN 
BIT @x0o. Ot RO LEENe? 


BEQ 50037 
BIT e@cMo. Co. CMOWRD 
BNE 50040 

0035 


5 7$; 
;IF NOT AT EOT OR NOT A MOTION CMO THEN: 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3009 
3010 


3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 


3019 
3020 
3021 


3022 
3023 


3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 


3033 
3034 


007400 
007404 
007404 
007406 
007406 
007406 
007412 
007414 
007420 


E6 
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004737 
000405 
105737 


001402 
004737 


004737 
000707 
105737 
001403 
105037 
104424 


004737 
026527 


001450 


032737 
001421 


032765 
001014 


032765 
001406 


105737 


001402 
004737 


000402 
004737 


000420 


010654 


003531 
010654 


017346 


0035235 


003523 


000001 


003531 
011274 


011274 


177777 


003426 


003506 


003506 


JSR PC, EXCUTE 
ELSE 


IFB ALLEOT NE #0 THEN 
JSR PC,EXCUTE 
ENDIF 


ENDIF 
ENDIF 
JSR PC,NEXTU 
ENODO 
IFB RPTFLG NE 00 THEN 


LET RPTFLG :B= 00 
DORPT 

ENOIF 

JSR PC,FIRSTU 


IF @M00.CO SETIN CMOWRD THEN 


IF @xO.BOT NOTSETIN EOTFLGCRS) THEN 


SEQ 0069 


sISSUE CMD TO TK25. 


sFIND NEXT UNIT 


BR 500418 
50040$: 


TSTB ALLEOT 
BEG 50042 
500423: 
500418: 
500353: 
IN TEST CYCLE. 


BR 50026$ 
0027$%: 


5 . 
;IF REPORT HAS BEEN REQUESTED THEN: 


;CLR THE FLAG, 


TSTB RPTFLG 
BEQ 50043$ 


RPTFLG 


CLRB 
sPRINT THE PERFORMANCE REPORT. 


TRAP CsORPT 
50043$: 


;SET UP FOR FIRST UNIT. 
WHILE DEVTBL(RS) NE @END DO ;WHILE THERE weg oy DEVICES: 


IF @xXO.EOT SETIN EOTFLG(RS) THEN 


IFB ALLEOT NE #0 THEN 


JSR PC,GOWAIT 
ENDIF 


ELSE 


JSR PC,GOWAIT 
ENDIF 


ENDIF 
ELSE 


sELSE IF CMO IS 


BEQ 
:IF CMD IS REVERSE THEN: 
BIT 


4%; 
CMP DEVTBLC RS), END 
500453 


@M0D .CO, CMDWRD 

BEG 50046 $ 

3IF NOT AT BOT 
BIT a8 SES OTROS? 
BNE 50047 
sBUT IF AT cor 
BIT @x0.EOT ,EOTFLGCRS) 
BEQ S0050$ 


3AND ALL OTHERS AT EOT 
TSTB wae oH 
BEQ 50u51$ 
;THEN WAIT FOR CMD E 
3IF NOT ALL AT EOT, D0 NOT WAIT 
50051$: 
sNOT AT BOT, AND NOT AT EOT 
BR 500528 
50050$ 
sWAIT FOR INT,CHECK STATUS, 


BR "50053 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3035 


MACRO M1200 21-MAR-84 16:45 PAGE 66-4 


004737 
000724 
000207 


000001 003506 
000001 003426 


011274 


003531 
011274 


017346 


500463: 
IF #XO.EOT NOTSETIN EOTFLGCRS) OR #CMD.CO NOTSETIN CMOWRD THEN 
BIT a rn ene 


F6 


JSR PC,GOWAIT 


ELSE 


IFB ALLEOT NE 00 THEN 


JSR PC,GOWAIT 
ENDIF 


ENOIF 


ENOT 


JSR 
ENDDO 


RTS PC 


F 
PC,.NEXTU 


BEQ 50054 
BIT @CMD .CO, CMDWRD 
BNE 50055$ 


500545: 
3IF NOT AT EOT OR NOT A MOTION CMD THEN: 


sWAIT FOR INT, 


sF IND NEXT UNIT 


;RETURN. 


CHECK STATUS. 


BR 
500558: 


TSTs8 ALLEQT 
BEQ 50057$ 
50057$: 
500565: 
500538: 
IN TEST CYCLE. 


BR 50044 $ 
50045$: 


SEQ 0070 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 
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013704 
004737 
112337 
112337 
1113537 


013704 
004737 
000240 
112337 
112337 


111337 
000207 


003644 


003732 


CMDAC: : 


THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 
COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMDWRD 
hours CURRENT CMD AND LOCATION PCMDWD CONTAINS PREVIOUS CMD. 


OUTPUTS: 
REGISTERS: R3, R4, 
CALLS: GCMDA 
LET R4 := CMOWRD sR4 = CMD BINARY. 
CMOWRD ,R4 
JSR PC ,.GCMDA sGET CMO ASCII. 
MOVB (R3)+,STAERIL+2 sMOVE CMD ASCII 
MOVB (R3)+,STAER1L+3 ; 
MOVB (R3),STAER1 +4 sINTO MSG. 
LET R4 := PCMOWD sR4 = PREVIOUS CMD BINAR 
Vv PCMOWD .RA 
= PC ,GCMDA sGET CMD ASCII. 
LET STAER7+24 :3= (R3)+ sMOVE CMD ASCII 
MOVB (R3)+,STAER7 +24 
LET STAER7+25 :B= (R3)> $ 
MOVB CR3)+, STAER7 +25 
LET STAER7+26 :B= (R3) s INTO MSG. 
MOVB (R3),STAER7+26 
RTS PC sRETURN. GO EXECUTE NEXT FUNCTION. 


SUBROUTINE TO FIND THE ASCII pag ap den et A * on COMMAND IN R4. 
ADDRESS OF ASCII 1ST WORD IS RETURNED I 
INPUTS: R4 = PRESENT COMMAND WORD. 


OUTPUTS: R3 = ADDRESS OF PRESENT COMMAND ASCII. 
REGISTERS: 
CALLS: 
: LET R3 := 00 sINIT CMD TBL —o - 
WHILE CMDTBL(R3) NE R4 DO sUNTIL CURRENT “ ae 
ow CMOTBL(R3),R4 
BEQ 50061$ 
LET R3 := RB + 02 ;SEARCH CMD TABLE. 
ADD #2,R3 
ENDDO 
BR 50060$ 
50061$: 
LET R4 := RB 
MOV R3,R4 
LET R3 := R3 SHIFT -1 sPOINT TO ASCII a THAT COMMAND 
ADD R4,R3 
ADD @CMDASC,R3 


RTS PC s;RETURN,. 


SEQ 0071 


GLOBAL AREAS 
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010110 
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023727 
001003 


012737 
010203 
162703 
001017 
013737 


032737 
001404 


012737 
000403 


012737 


000427 
010203 
162703 
001011 


012737 
012737 


011137 
0004 


012737 
012737 


002314 
177740 


000010 
002316 


002314 


100011 


003434 


002316 
002314 


003434 


003434 


002316 
002322 


002322 
002316 


SETUP:: 


2s: 


1%: 


4$: 


THIS SUBROUTINE LOADS La mea COMMAND PACKET FROM ONE 


ENTRY IN THE SEQUENCE T 
INPUTS: 


OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: GENPAT. 

LET CMDLG := 00 

MOV CR1)+, CMDPKT 

MOV CR1),CMOPKT +CP.CNT 

MOV (R1),BRFCNT 

MOV CMOPKT ,R2 

BIC @NCMD.C ,R2 

MOV R2,R3 

SUB @CMD.C3,R3 

BNE 2s 

MOV (R1),CMOPKT +2 

BR 3% 

IF CMDPKT EQ OWTM THEN 
LET CMOLG := 02 

ENOIF 

MOV R2,R3 

SUB + asian 

BNE 


MOV OA TARD , CMOPKT+CP . ADL 
IF @MOD.CO SETIN CMOPKT THEN 


LET CMOLG 
ELSE 


:* 04 


ENOIF 

BR 3% 

MOV R2,R3 

SUB @CMD.C2,R3 

BNE 4% 

LET CMOPKT+CP.ADL := @SCHBK 
MOV @SCHCNT ,CMOPKT +CP.CNT 
LET SCHBK+6 := (R1) 

BR 3$ 

MOV R2,R3 

SUB @CMD.C1!CMD.C2,R3 
BNE 3% 

MOV ODIACNT ,CMDPKT-CP.CNT 
MOV OOIABLK , CMDPKT «CP. ADL 


SEQ 0072 


sCLR CMD LOGGING oe ory LOGGING) 
CLR CMOLG 


sLOAD THE COMMAND WORD. 


sLOAD THE BYTE/RECORO/FILE COUNT. 
sSAVE BRF FOR THIS COMMAND. 


3;GET CMO. 
;CLR ALL BUT CMD BITS. 
s;SAVE IT TWICE. 


;MOVE BPCR IN 2ND PKT WORD FOR POSITION CMD. 
;IF CMD IS A “ue MARK THEN: 


BNE 
3WT™™ LOGGING > Is 2. 


500628: 


:IS IT A READ? 
;68R IF NOT. 


CMDPKT , OWTM 
50062 $ 


@2,CMOLG 


sIF SO, LOAD THE BUFFER ADDR. 


:IF CMD IS A — THEN: 


=. 
sLOGGING CODE IS 4 
sELSE - 


500633: 
sLOGGING CODE IS 6. 
MOV 
50064: 
; CONTINUE. 
3IS IT 


MOV 
IF 70 TSA ReAo/ FS. 


@M00 .CO, CMDPKT 
50063$ 


@4,CMOLG 
50064 $ 


6 ,CMDLG 


3A SET CHARACTERISTICS CMD? 


;BR IF NOT 


;SET UP ADR LO oA SET CHAR 


:SET BUFFER EXTENT 


@SCHBK ,CMOPKT+CP. ADL 


STORE eS CODE IN SCH BLOCK. 


3A DIAGNOSTIC (OIA) CMD? 


;BR IF NOT 
;LOAD BUFFER EXTENT. 
;LOAD BUFFER ADR LOW. 


(R11), SCHBK -6 
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GLOBAL SUBROUTINES SECTION 


3131 
3132 


010116 
010120 
010120 


005721 
012137 


012737 


032737 
001407 


112737 
042737 


000402 


105037 


013737 
013737 


105737 
001403 


052737 


042737 


013737 
000207 


003422 


003420 
003454 


000005 


003414 
010264 


002316 


003434 
002314 


003522 
002314 


003432 
003426 


002314 


002314 
003430 


38; 


S$: 


16 
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SEQ 0073 


CR1)> 
LET NCNT1 :© (R1)+ 
LET NCNT := #0 


MOV (R1)+,PATERN 

MOV R2, 

MOV DATAUT, — ADL. 
JSR PC ,GENP 

LET CMOLG := a2. 


IF evFY.C SETIN CMDPKT THEN 


LET VFYFLG :B* #1 
my ove y.C,CMDPKT 
LET VFYFLG :B= 00 

ENOIF 

LET PCMOWD := CMDWRD 

LET CMOWRD := CMDPKT 

IFB SWBFLG NE @O THEN 


sPOINT TO N CNUMBER OF TIMES TO EXECUTE THIS INSTRUC 
sSAVE NUMBER OF aaa 

C(R1)+,NCNTL 
sCLEAR OPERATION C COUNTER 


CLR NCNT 
— CODE FOR CURRENT CMD. 


F 

3A WRITE? 

3;6R IF NOT. 

sLOAD WRITE BUFFER LO ORDER 

3GO GENERATE THE WRITE PATTERN. 
sWRITE LOGGING = Is 2. 


@2,CMOLG 
sIF DATA VERIFICATION TS REQUIRED: 


CMDPKT 
Sea 500655 
;SET VERIFY FLAG. 
@1,VF YFLG 


MOvB 
;CLEAR VERIFY BITCNOT USED BY HARDWARE ) 
:IF DATA VERIFICATION IS NOT REQUIRED: 
BR 50066 $ 


500658: 


;CLR VERIFY FLAG. 


CL&B VF YFLG 


50066 $ : 
sSAVE PREVIOUS CMD WORD. 
MOV CMDWROD . PCMDWD 
;SAVE PRESENT CMD WORD. 
CMDPKT ,. CMDWRO 


MOV 
IF SWAP BYTES IS ENABLED: 
TSTB SWEFLG 


BEQ 50067$ 
LET CMDPKT := CMDPKT SET.BY @SWB.C ;SET SWAP BIT IN COMMAND. 
BIS oSwB .C.CMDPKT 
ENDIF 
500678: 
BIC OBRF .C,CMDPKT ;CLR BREF BIT CINTERNAL ONLY). 
LET CMDSAV := CMDPK T ;SAVE 1ST WORD OF COMMAND PACKET 


RTS PC 


MOV CMDPKT .CMDSAV 


;RETURN, 


GLOBAL AREAS 
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013703 
006303 


013704 
005204 


042704 
162704 
013702 


012703 


162704 
100411 


010322 
062703 


020327 
001002 


012703 


000 764 
000207 


000400 


GENPAT: 


PATTBL: 


PATRO:: 


1$: 


2s: 


THIS SUBROUTINE SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 
we PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 


OUTPUTS: 


REGISTERS: R2, R3, R4. 
CALLS: PATRO - PATR7 
: LET R3 :* PATERN SHIFT 1 sSETUP PATTERN ROUTINE POINTER 
MOV PATERN,RS 
ASL R3 
LET R&4 :* BRFCNT «+ @1 ;SET LENGTH OF WRITE BFR 
MOV BRFCNT ,R4 
INC R4 
LET R&4 := R4 CLR.BY @1 ;ROUNDED UP TO NEXT a a 
#1,R4 
LET R4 : RA - 02 ;WITH FIRST WORD semaines one 
#2, 
LET R2 :* DATAWT + #2 sFOR RECORD COUNT 
MOV DATAWT ,R2 
ADO @2,R2 
JSR PC, @PATTBL(RS) ;GO GENERATE THE APPROPRIATE PATTERN. 
RTS PC sRETURN TO SETUP SUBROUTINE. 


;TK25 WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
sCORRECT DATA PATTERN GENERATING ROUTINE. 


PATRO 3 INCREMENTING PATTERN, O - 377 
PATRI ; ALL ONES PATTERN 
PATR2 3 ALL ZEROES PATTERN 
PATR3 : ‘1' BIT SHIFT, RIGHT TO LEFT 
PATR4 3; ‘O° BIT SHIFT, RIGHT TO LEFT 
PATRS 3 ALTERNATE ‘O' € ‘1' WITH ALT. BYTES COMPL. 
PATR6 3; ALTERNATE BYTES OF O00 AND 377 
PATR7 3; RANDOM PATTERN. 
PATRS ; DUMMY. NO PATTERN, JUST EXITS. 
; INCREMENTING PATTERN. O - 377. 
LET R3 :* #400 
MOV 400 ,R3 
LET R4 := R4 - 02 sDECREMENT WORD COUNT. 
SUB 92,R4 
BMI 2s 3;BR IF DONE. 
LET (R2)+>+ := RS ;STORE DATA WORD. 
MOV R3,C(R2)> 
LET R3 := RB + 01002 ;UPDATE PATTERN. 
ADD ~~ nah 
IF R3 EQ #1000 THEN ;IF PATTERN HAS WRAPPED AROUND THE 
CMP aS. @1000 
BNE 500708 
LET R3 := 0400 ;INIT THE PATTERN AGAIN. 
MOV 400 ,R3 
ENDIF 
500708: 
BR 1$ 300 IT AGAIN, 


RTS PC s;RETURN. 


SEQ 0074 


K6 
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GLOBAL SUBROUTINES SECTION SEQ 0075 
3197 
Ape sALL ONE'S PATTERN. 
3200 010406 012703 177777 PATR1:: MOV @-1,R3 sALL ONES PATTERN; . 
3201 010412 ZROPAT: LET R4 :* R4 - 02 sDECREMENT BYTE COUNT. 
010412 162704 900002 SUB 92,R4 
3202 010416 100402 BMI i$ sDONE?,BR IF YES. 
3203 010420 010322 MOV R3,(R2)+ sIF NOT LOAD NEXT BYTE WITH PATTERN. 
ios 010422 000773 BR ZROPAT :00 IT AGAIN. 


3206 010424 000207 1$: RTS PC RETURN. 


GLOBAL AREAS 


GLOB 


010426 
010430 
010434 


010576 


L6 
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005003 
004737 
000207 


012703 


012703 
004737 
000207 


012703 
004737 
000207 


012703 


162704 
100402 
010322 
000773 
000207 


012737 
012737 
012737 


AL SUBROUTINES SECTION 


010412 


177376 
010442 


125125 
010412 


177400 


010644 
010646 
010650 


PATR2:: CLR R3 ;CLR PATTERN REGISTER. 
JSR PC, ZROPAT :GO GENERATE IT. 
RTS PC sRETURN, 
;ONE BIT WALKING FROM R TOL IN A FIELD OF ZEROES. 
PATR3:: MOV 401,R3 sINIT PATTERN REGISTER. 
WLKZRO: LET R4 :* RO - 02 ;DECREMENT WORD COUNT. ous 
BMI 1$ ;68R IF DONE. 
MOV R3,CR2)>+ sLOAD DATA. 
ASL R3 ;SHIFT PATTERN. 
ADC R3 ;ADD CARRY BACK INTO PATTERN. 
BR WLKZRO 300 IT AGAIN. 
1$: RTS PC ;RETURN. 
;ZERO BIT WALKING FROM R TO L IN A FIELD OF 1’S. 
PATR4:: MOV #177376,R3 ; INIT PATTERN REGISTER. 
JSR PC ,WLKZRO 3GO GENERATE ;IT. 
RTS PC ;RETURN. 
sALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
;COMPLEMENTED. 
PATRS:: MOV #125125,R3 ; INIT PATTERN REGISTER. 
JSR PC, ZROPAT 3GO GENERATE IT. 
RTS PC sRETURN. 
sALTERNATING BYTES OF OOO AND 377. 
PATR6:: MOV #177400,R3 sINIT PATTERN REGISTER. 
1$: LET R4 ;:= R4& - G2 ;DECREMENT WORD COUNT. -— 
BMI es 3;6R IF DONE. 
MOV R3,(R2)> ;LOAD DATA. 
BR 1$ 300 IT AGAIN. 
2s: RTS PC sRETURN. 
;RANDOM PATTERN GENERATOR 
PATR?:: 
MOV ORS1,RAN1L ;SET UP THE SEED 
MOV ORS2,RAN2S ;SET UP THE SEED 
MOV @RS3,RANS 3;SET UP THE SEED 
1$: LET R&4 := R4 - 02 ;DECREMENT WORD COUNT ian 
BMI GIT ;BR IF DONE. 
MOV R3,-(SP) 
MOV RAN1,R3 sMOVE THE FIRST SEED INTO R3 
CLC ;CLEAR THE CARRY FLAG 
DEC RANS ;DECREMENT THE THIRD SEED 
ROL R3 3 
ROL R3 3 
ADD RAN2 ,R3 ;ADD THE SECOND SEED TO R3 


sALL ZEROES PATTERN. 


@2,R4 


#2,R4 


@2,R4 


SEQ 0076 
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GLOBAL SUBROUTINES SECTION 
3262 010602 010337 010644 
3263 010606 poets | 010650 

3 
3266 010615 aethe | 010646 


3 
3269 010626 epee dt 010646 
3271 010634 eden] 010646 


3284 010652 000207 


M6 


1233 
7622 
.¢) 


NO PATTERN GENERATION, 


:: RTS 


PC 


sPUT IT ALL IN THE FIRST SEED 
sPUT THE THIRD SEED INTO R3 
; 


: 
sADD THE SECOND SEED TO R3 
; 


Gl 
sPUT IT IN THE SECONG SEED 


sRESTORE R3 
sPUT @ IN BUFFER 
NUE 


sRETURN. 


SEQ 0077 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


012737 177777 


005337 
005737 


003444 
003444 


3297 011726 
3298 


017402 


032775 
001756 


023727 
001022 


010537 
004737 


000200 


003426 


003460 
017300 


026527 
001405 
004737 
004737 


000767 


002536 


011672 
017346 


013705 
016537 


003460 
002506 


016503 
005002 


002506 


011010 020227 000016 


003444 


002466 


140004 


177777 


002446 


EXCUTE: 


N6 
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THIS SUBROUTINE INITIATES TK2S COMMAND EXECUTION 


AND at FOR TK2S RESPONSE. 
INPUTS 


OUTPUTS: 
REGISTERS: R2, R3. 
CALLS: DROPU, MOVMSG, 
:LET TIMEL := @-1 
REPEAT 

LET TIME1L := TIME - #1 


IF TIME1 EQ #0 THEN 


JSR PC,MOVMSG 
ERRDF 2,NSSRM,STAERM 


JSR PC ,DROPU 
BR EXCRTN 
ENDIF 


UNTIL @TS.SSR SETIN @TSSRCRS) 


IF CMDWRD EQ @SCH THEN 


LET RSSAVE := RS 


JSR PC,FIRSTU 
WHILE DEVTBLC(RS) NE #END DO 


JSR PC,WSSR 

=... PC ,NEXTU 

LET RS := RSSAVE 

LET SCHBK := MSGPKACRS) 
ENDIF 
LET R3 := MSGPKACRS) 
LET R2 := #0 
WHILE R2 NE @MSGCNT DO 


FIRSTU, NEXTU, WSSR. 
sINIT TIMEOUT COUNTER. 
MOV 


#-1,TIME1 
;WAIT - 
50071$: 
sUPDATE TIMEOUT COUNTER. 
Cc TIME1 
;IF TIMED OUT: 
TST TIME1 


BNE 
s;MOVE CURRENT PACKET MSG. 
sREPORT TK25 NOT READY 


TRAP CSERDF 
-WORD 2 
-WORD NSSRM 
-WORD  STAERM 


;DROP THE UNIT. 
;RETURN. 


$0072$ 
;WAIT UNTIL DEVICE IS READY. 
BIT eTs. YF @TSSRCRS) 


BEY 50071 
IF WE ARE DOING A SET CHAR eno THEN: 

CMP SMOWRD , @SCH 
BNE 300738 

;SAVE CURRENT DEVICE PUINTER. 
MOV RS .RSSAVE 

sF IND FIRST UNIT. 
50074$: 
CMP DEVTBLCRS),. SEND 
BEQ 50075$ 


;WAIT FOR UNIT READY OR TIME OUT, 
sFIND NEXT UNIT. 


50074$ 
50075$ 
sRESTORE CURRENT DEVICE POINTER. 
RSSAVE.RS 


MOV 
;SET UP ADR OF MSG PKT IN SCH BLOCK. 
MOV MSGPKACRS ), SCHBK 


50073$: 
sADR OF THIS UNIT'S MSG PACKET. 

MOV MSGPKACRS),R3 
;CLR COUNTER, 


CLR Re 

;WHILE THERE ARE MORE LOCATIONS: 
50076$: 
CMP R2, #@MSGCNT 


SEQ 0078 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3316 


3334 


3335 


3336 


011014 
4 1016 


011216 


B/ 
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001405 
012725 
062702 
000770 


105737 
001023 


126527 
003412 


017537 


105737 
001005 


005265 
016577 


023727 


123737 
003417 


012727 
000000 
013727 
000000 


005567 
001375 


177777 


017402 


003476 
000200 


003475 


003330 
003330 


002114 
003426 


003525 


000001 
003525 
000002 


003525 


000025 
002116 
177772 


003462 


002314 


172270 


000003 
104005 


18: 


SEQ 0079 


BEQ 50077$ 
LET (R3)> :* O-1 sINIT THE MSG PACKET WITH ALL 1°S 
MOV @-1,(R3)> 
LET R2 ;* R2 + 02 sUPDATE COUNTER. 
ADD @2,R2 
ENDDO 
BR 500768 
500778: 
TST OINT sARE INTERRUPTS DISABLED. 
BNE 18 3;68R IF YES. 
IF6 INTFLG(RS) GT @1 THEN sIF MORE THAN ONE INTERRUPT HAS OCCURED: 
CmMPB INTFLGC(RS),@1 
BLE 501008 
LET TSSREG :* @TSSR(RS) sFREEZE THE CURRENT STATUS REG FOR PRINT 
MOV @TSSRCRS), TSSREG 
ERRDOF 15, TOOMM,STAERM sREPORT TOO MANY INTERRUPTS. 
TRAP CsEROF 
. WORD 15 
- WORD TOOMM 
WORD STAERM 
JSR PC ,OROPU sD0ROP THE UNIT 
m5 EXCRIN sRETURN - UNIT HAS BEEN DROPPED. 
501008: 
LET INTFLGC(RS) :* 00 sCLR INTERRUPT FLAG FOR THIS DEV. 
CLR INTFLGCRS) 
BIS @IE.C,CMOPKT 3SET INT ENABLE BIT. 
IFB ERRREC EQ 00 THEN 3IF NOT RETRYING 
TST6 ERRREC 
BNE 501018 
LET RECCNT(RS) :* RECCNI(RS) «+ O1 
INC RECCNTC(RS) 
LET SOATAWT := RECCNT(RS) s THEN UPDATE REC COUNT TO WRITE IT ON TAPE 
MOV RECCNT(RS),@OATAWT 
ENDIF 
501018: 
IF LSTEST EQ @3 AND CMOWRD EQ OWRT THEN 
CMP LSTEST,@3 
BNE 501023 
CMP CMOWRD , OWRT 
BNE 501028 
LET LOOPCT :B* LOOPCT + 1 
CLR -( SP) 
MOvVB LOOPCT (SP) 
ADO 1.¢€SP) 
MOVB (SP), LOOPCT 
ADD @2,SP 
IFB LOOPCT GT 3 THEN 
CMPS LOOPCT,3 
BLE 50103$ 
DELAY Ql. 
MOV 921.,.(PC)+ 
. WORD oO 
MOV Yami 
DEC ec PC) 
BNE 4 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3337 
3338 


3345 
3346 


3347 


011272 
011272 
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005367 
001567 


113737 


177756 


017402 


003525 


002456 


002466 


C7 


“MAR -864 16:45 PAGE 71-2 


SEQ 0080 
DEC -22(PC) 
BNE -20 
LET LOOPCT :8* 0 
MOVB 0,LOOPCT 
ENOIF 
50103$: 
ENDIF 
50102$: 
MOV @CMOPKT , 8@TSOBC(RS ) rs TSOB WITH 


CMOPKT ADDRESS 
THIS INITIATES COMMAND EXECUTION. 
IF @TS.SSR SETIN @TSSR(RS) THEN VIF READY OID NOT DROP THEN: 
BIT @TS.SSR,8TSSRCRS) 
BEQ 50104$% 


JSR PC,MOVMSG sMOVE CURRENT MESSAGE PACKET TO COMMON. 
ERRDF 3, TOERM,STAERM sREPORT NO TK25 RESPONSE. 
TRAP CSEROF 
-WORD 35 
«WORD TOERM 
«WORD STAERM 
JSR PC,OROPU sDROP THE UNIT 
ENOIF 
50104$: 


EXCRIN: RTS PC sRETURN, 


GLOBAL 


ARE AS 
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GLOBAL SUBROUTINES SECTION 


3363 


3365 


3367 
3368 


3369 


3370 
3371 


011274 


011436 
011444 


D7 


CHECK TSSR FOR STATUS ERRORS, 


INPUTS: 
OUTPUTS: 
REGISTERS: R2, R3. 
CALLS: DROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 
GOWAIT:: IF DEVTBLCRS) EQ ONINUSE 
026527 002536 177774 CMP DEVTBLCRS ), ONINUSE 
001001 BNE 501058 
000563 BR 1$ 
ENOIF 
501¢5$: 
LET TIME1L := @-1 sINIT TIME OUT COUNTER, 
012737 177777 003444 MOV @-1,TIME1 
REPEAT sREPEAT UNTIL eas T OCCURES: 
BREAK sHONOR SUPERVISOR BREAKS 
104422 TRAP CsBRK 
IF PCMDOWD EQ @RWD AND CMOWRD EQ OWRT THEN 
023727 003432 102010 CMP PCMOWD , ORWD 
001020 BNE 501078 
023727 003426 104005 CMP CMOWRD , OWRT 
001014 BNE 107$ 
sPOSSIBLE FIRST WRITE ON TAPE 
DELAY 40. 
012727 000050 MOV 040. ,(PC)> 
000000 -WORD O 
013727 002116 MOV LSOLY,C(PC)- 
000000 -WORD O 
005367 177772 DEC -6(PC) 
001375 BNE .-4 
005367 177756 DEC -22¢PC) 
001367 BNE .--20 
ENDIF 350 DELAY TO ane rt TAPE 
IF CMOWRD EQ ORWD THEN 3IF COMMAND WAS REWIND THEN: 
023727 003426 102010 CMP CMOWRD , ORWO 
001014 BNE 50110$ 
DELAY 10. ;WAIT EXTRA 10 MSECS EACH LOOP. 
012727 000012 MOV #10. ,(PC)>+ 
000000 . WORD 0 
013727 002116 MOV LSOLY.CPC)- 
000000 P 0 
005367 177772 DEC -6(PC) 
001375 BNE .-4 
005367 177756 DEC -22( PC) 
001367 BNE .-20 
ENDIF 
501108; 
IF CMOWRD EQ #SFF OR CMDWRD EQ OSFR THEN 
023727 003426 105010 CMP CMOWRD , OSFF 
001404 BEQ 50111$ 
023727 003426 105410 CMP CMOWRD , OSFR 
001014 BNE 5S0112$ 


SEQ 0081 


THIS SUBROUTINE WAITS FOR THE TK25 INERRUPT OR DONE BIT TO SET AND ALLOWS THE 
OPERATOR ps TRANSFE , Be TO THE SUPERVISOR. 
UPON APPEARANCE OF THE INTERRUPT OR DONE, 
LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3372 


3373 
3374 


3375 
3376 


3377 


3378 


3379 
3380 
3381 


3382 


3383 


3384 
3385 


3386 
3387 


3388 
3389 


3390 
3391 


011446 
011446 
011446 


011622 


E7/ 
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501115: 
DELAY 12. sADD DELAY FOR SPACE TAPE MARK COMMANDS 
012727 000014 MOV #12. ,(PC)> 
-WORD O 
013727 002116 MOV LSOLY,(PC)>+ 
-WORD O 
005367 177772 DEC -6(PC) 
001375 BNE -4 
005367 177756 DEC -22(PC) 
001367 BNE .-20 
ENOIF 
501128: 
IFB DINT EQ #0 THEN 3IF INTERRUPTS ARE ENABLED. 
105737 002212 TSTs OINT 
001003 BNE ee 
LET R2 :* INTFLGCRS) sFETCH INTERRUPT —’ FL 
016502 003476 INTFLGCRS), Re 
ELSE 3IF IN BRUTUS MODE. 
000406 BR 501148 
501138: 
LET R3 := COMP OTS.SSR ;SET UP A MASK FOR THE DONE BIT. 
012703 000200 MOV @TS.SSR,R3 
005103 COM R3 
LET R2 := ATSSRC(RS) CLR.BY R3_ ;FETCH DONE BIT. 
017502 002466 MOV @TSSRCRS),R2 
040302 BIC R3,R2 
ENOIF 
501148: 
LET TIME1 := TIMEL - O1 sUPDATE TIMEOUT COUNTER. 
005337 003444 OEC TIME1 
UNTIL R2 NE @O OR TIME1 EQ 00 ;REPEAT UNTIL INTERRUPT OR READY OCCURES. 
005702 TST Re 
001003 BNE 50115$ 
005737 003444 TsT TIME1 
001264 BNE 501063 
50115$: 
IF TIME1 EQ #0 THEN ;IF TIME OUT HAS OCCURRED: 
005737 003444 TsTt TIME1 
001022 BNE 50116$ 
LET QBDATAWT := RECCNTC(RS) - 01 ;RE-ADJUST REC COUNT DOWN 
016577 003330 171634 MOV po A aie QDATAWT 
005377 171630 DEC QDATAWT 
004737 011726 JSR PC,MOVMSG sMOVE CURRENT MSG PACKET TO COMMON AREA. 
ERROF 4,NOINTM,STAERM ;REPORT NO INTERRUPT. 
104455 TRAP CSEROF 
-WORD 4 
004503 .WORD NOINTM 
005626 .WORD STAERM 
004737 017402 JSR PC,DROPU ;OROP THE UNIT. 
LET R3 :* #ENDERF 
012703 003476 MOV MENDERF ,R3 
004737 011656 - PC,CLRERR ;CLEAR ALL ERROR FLAGS 
L 
000417 ee 50117$ 
004737 011726 JSR PC,MOVMSG sMOVE CURRENT MSG. PACKET TO COMMON AREA, 
004737 012012 JSR PC,RECUD ;UPDATE THE RECORD COUNT. 


SEQ 0062 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3392 
3393 


3394 
3395 


3396 
3397 


3398 
3399 


011626 
011632 
011632 
011636 
011640 
011644 
011644 
011650 
011654 
011654 
011654 
011654 
011654 
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012703 
004737 


000207 


012160 
003467 
015436 


003476 
011656 


18: 


JSR 


IFB WRTYFG EQ #0 THEN 


PC, CHKERR 


JSR PC,LOG 
LET R3 :* @ENDERF 


JSR PC,CLRERR 
NOIF 


ENDIF 
RTS 


PC 


F7 


sCHECK FOR STATUS ERRORS. 


TSTB 


BNE 
sLOG BYTES AND ERRORS. 


MOV 
sCLEAR ALL ERROR 


sRETURN IF DONE 


501208: 
50117$: 


WRT YFG 
50120$ 


GENDERF ,R3 
FLAGS 


SEQ 0083 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


011670 


011672 
011672 
011700 
011700 
011700 
011700 
011702 
011702 
011706 
011706 
011714 
011716 
011722 
011724 


011724 


MACRO 


012702 


005022 
020203 


001375 
000207 


012737 


003464 


177777 


003444 


002466 


G7 
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Toon. TO a FLAGS. 


INPUTS * LWA TO BE CLEARED + 2. 
OUTPUTS: 
REGISTERS: RO 
CALLS: 
CLRERR:: LET R2 := @BGNFLG 
MOV OBGNFLG,R2 
REPEAT 
501218 
LET (R2)+ := 00 
CLR CR2)> 
UNTIL R2 EQ R3 
CMP R2,R3 
BNE 501218 


wWSSR 


RTS PC 


tm TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 


OUTPUTS: 
REGISTERS: 
CALLS: 
LET TIME := @-1 s INIT TIMEOUT COUNTER. 
MOV @-1,T IME1 
REPEAT sREPEAT UNTIL way oy OR TIMEOUT: 
BREAK ;BREAK TO THE SUPERVISOR. 
TRAP CS$BRK 
LET TIME :* TIME1 - @1 sUPDATE TIMEOUT COUNTER. 
DEC TIME1 
UNTIL @TS.SSR SETIN @TSSRC(RS) OR TIMEL EQ 80 
BIT @TS.SSR,aTSSRCRS) 
BNE 501238 
TsT TIME1 
BNE 50122$ 
50123: 
sREPEAT UNTIL DEV READY OR TIMEOUT. 


RTS PC 3RE TURN 


SEQ 0084 


GLOBAL AREAS MACRO 
GLOBAL SUBROUTINES SECTION 


012010 


017537 


013702 
€42702 


010237 
006237 
016503 
005002 
020227 
001405 
012362 
062702 
000770 


013765 
000207 


H7 
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002466 003462 


003462 
177761 


003456 
003456 


092506 


002346 003506 


SEQ 0085 
é SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
3 TO UPDATE THE CURRENT TERMINATION CLASS CODE. 
3 INPUTS: 
3 OUTPUTS: 
3 REGISTERS: R2, R3. 
; CALLS: 
MOVMSG:: LET TSSREG := @TSSRCRS) sFREEZE THE STATUS REG CONTENTS 
MOV @TSSRC RS), TSSREG 
LET R2 :* TSSREG CLR.BY #TSC.TCC ;EXTRACT THE TERMINATION CLASS CODE, 
MOV TSSREG,R2 
BIC @TSC.TCC,R2 
LET CTCC := R2 SHIFT -1 sAND SAVE IT 
MOV R2,CTCC 
ASR crce 
LET R3 := MSGPKACRS) sADR OF THIS DEVICE'S MSG. 
MOV MSGPKACRS) RS 
LET R2 := 00 ;CLR COUNTER. CLR a2 
WHILE R2 NE @MSGCNT DO ;WHILE THERE stag 1 *~ ctraiananas 
1 : 
CMP R2, OMSGCNT 
BEQ 50125$ 
LET MSGPKT(R2) := (R3)> sMOVE MSG TO COMMON AREA. 
CR3)+, MSGPKTCR2) 
LET R2 := R2 + 02 sUPDATE COUNTER. 
@2,R2 
ENODDO 
50124 
501253: 
LET EOTFLGCRS) := MSGPKT+MS.xSO ;MOVE XSTATO TO EOT FLAG. 
MOV MSGPKT +MS.xSO,EOTSLGCRS) 


RTS PC 


1/7 
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GLOBAL SUBROUTINES SECTION SEQ 0086 

3451 3 SUBROUTINE TO ADJUST THE RECORD COUNT. 

3452 3 INPUTS: 

3453 3 OuTPuTS: 

3454 3 REGISTERS: 

cae 3 CALLS: 

3457 012012 RECUD:: IFB RECLOG EQ #0 THEN sIF RECORD HAS = BEEN LOGGED: 

012012 105737 003471 sTs RECLOG 
012016 001057 one 501268 

3458 012020 LET RECCNT(RS) :* RECCNT(RS) - @1 
012020 005365 003330 DEC RECCNT(RS) 

3459 012024 IF @BITO NOTSETIN CTCC AND @x2.0PM SETIN MSGPKT+MS.xS2 THEN sIF TAPE MOVED THEN: 
012024 032737 000001 003456 BIT eBITo, crec 
012032 001046 BNE 501278 
012034 032737 100000 002352 BIT @X2.0PM,.MSGPKT «MS. xS2 
012042 001442 BEQ 501278 

3460 012044 LET RECLOG :8= RECLOG + @1 ;SET RECORD LOGGED, 

012044 105237 003471 INCB RECLOG 

3461 012050 IF CMOWRD EQ ORWD THEN ;IF This IS A REWIND CMD: 

012050 023727 003426 102010 cmp CMOWRD, 
012056 001003 BNE 501303 

3462 012060 LET RECCNT(RS) := 00 sCLEAR RECORD COUNT, 

012060 005065 003330 CLR RECCNT(RS) 

3463 012064 ELSE 
012064 000431 BR 501318 
012066 501308: 

3464 012066 IF OBRF.C SETIN CMDWRD THEN :IF BREF USED, UPDATE RECORD COUNT. 
0129066 032737 004000 003426 BIT @BRF _C,.CMDWRD 
012074 001425 BEQ 501328 

3465 012076 IF @M0D.CO NOTSETIN CMOWRD THEN ;IF A te CMO: 

012076 032737 000400 003426 BIT @M00 .CO, CMDWRD 
012104 001007 BNE 501338 

3466 012106 IF @M00.CO NOTSETIN PCMOWD THEN ;IF PREV CMD WAS A FWD ALSO: 
012106 032737 000400 003432 BIT @M00 .CO,PCMDWD 
012114 001002 BNE 501348 

3467 012116 LET RECCNT(RS) := RECCNI(CRS) + @1 ;INCREMENT RECORD COUNT. 
012116 005265 003330 INC RECCNT(RS) 

3468 012122 ENDIF 
012122 501348: 

3469 012122 ELSE 3;IF REVERSE CMD: 

012122 000412 BR 501358 
012124 501338: 

3470 012124 IF @MOD.CO SETIN PCMOWD THEN ;IF PREVIOUS CMD WAS A REV ALSO: 
012124 032737 000400 003432 BIT @M00 .CO.PCMDWD 
012132 001406 BEG 501368 

3471 012134 IF @xO.BOT NOTSETIN EOTFLG(RS) THEN ;WHEN NOT AT BOT THEN 
012134 032765 000002 003506 BIT @x0.BOT ,EOTFLGCRS) 
012142 001002 BNE 501378 

3472 012144 LET RECCNT(RS) := RECCNTCRS) - @1 ;DECREMENT RECORD COUNT. 
012144 005365 003350 DEC RECCNT(RS) 

3473 012150 ENDIF 
012150 501378: 

3474 012150 ENDIF 
012150 501368: 

3475 012150 ENDIF 
012150 501358: 


3476 012150 ENDIF 


GLOBAL AREAS 


GLOBAL SUBROUTINES SEC 


3477 
3478 
3479 
3480 
3481 


012150 
012150 
012150 
012150 
012150 
012150 
012150 
012156 
01215€ 
012156 
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ON 


016577 003330 171236 


000207 


ENOIF 


ENOIF 


LET @DATAWT 


ENDIF 
RTS 


PC 


J7 


:* RECCNTC(RS) 


sRE TURN, 


5O152$: 
501318: 
S0127$: 
MOV RECCNI( RS), @DATAWT 
501268: 


SEQ 0087 


K7 
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GLOBAL SUBROUTINES SECTION SEQ 0088 


3 THIS IS THE ERROR CHECK SUBROUTINE. AFTER INTERRUPT THIS 

3484 ; SUBROUTINE IS CALLED TO CHECK THE TK2S5 STATUS. 

3485 3 IF SPECIAL COND IS SET THEN THE TCC HANDLING SUBROUTINE IS ENTERED. 

3486 : IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BPCR, 

3487 : THEN AN ERROR RFC IS REPORTED, 

3488 3 INPUTS: 

3489 3 OUTPUTS: 

3490 : REGISTERS: R2, R4. 

cont 8 CALLS: TCCO- TCC7. 

3493 012160 CHKERR:: IF DEVTBL(RS) NE @NINUSE THEN 
012160 026527 002536 177774 CMP a @NINUSE 
012166 001556 BEQ 50140 

3494 012170 IF @X1.EWN SETIN MSGPKT+MS.xXS1 THEN ;IF EARLY WARNING IS Ser AND 
012170 032737 000010 002350 BIT @X1.EWN,MSGPKT +MS.xS1 
012176 001447 BEQ 50141$ 

3495 012200 IFB EWPRNT NE @0 THEN :IF END OF TRACK STATUS PRINTS ALLOWED 
012200 105737 002216 TSsTs8 EWPRNT 
012204 001421 BEQ 501428 

3496 012206 LET R2 := MSGPKT+MS.XS1 CLR.BY 0177417 
012206 013702 002350 MOV MSGPKT «MS .xS1,R2 
012212 042702 177417 BIC 177417,R2 

3497 012216 LET R2 := R2 SHIFT -4 
012216 006202 ASR Ro 
012220 006202 ASR Re 
012222 006202 ASR R2 
012224 006202 ASR R2 

3498 012226 PRINTF @EWMSG,R2 sPRINT END OF TRACK MESSAGE 
012226 010246 MOV R2,-(SP) 
012230 012746 012526 MOV GEWMSG, -( SP) 
012234 012746 000002 MOV @2,-CSP) 
012240 010600 MOV SP RO 
012242 104417 TRAP CSPNTF 
012244 062706 000006 ADD 96,SP 

3499 012250 ENDIF 
012250 50142$ 

3500 012250 IF CTCC EQ 04 THEN ;IF TCC4 AND WE DID A WRITE 
012250 023727 003456 000004 CMP CTCC,#4 
012256 001017 BNE 50143$ 

3501 012260 IF CMOWRD EQ @WRT OR CMDWRD EQ OWTM THEN 
012260 023727 003426 104005 CMP CMOWRD , OWRT 
012266 001404 BEQ 501443 
012270 023727 003426 100011 CMP CMOWRD , OWTM 
012276 001007 BNE 50145$ 
012300 50144$ 

3502 012300 IFB IREC EQ #0 THEN 
012300 105737 002210 TSsTB IREC 
012304 001004 BNE 50146$ 

3503 012306 004737 012632 JSR PC ,EWRTRY 3:00 EW RETRY 

3504 012312 000137 012524 JMP 1$% ;ALAS, A “GOTO” STATEMENT, EH? 

3505 012316 ENDIF 
012316 501463: 

3506 012316 ENDIF 
012316 501453: 

3507 012316 ENDIF 
012316 50143$,. 


3508 012316 ENOIF 


eB 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


012316 
012316 


012460 


L/ 
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032737 
001441 


023727 
001405 


105737 
001002 
005265 


032737 
001004 
032737 
001412 


032737 
001003 
012702 
000402 


012702 


000402 


013702 


006302 
004772 


000430 


032737 
001424 


005737 
001421 


105737 
001403 
105737 
001413 


100000 


040000 


100000 


003456 


012612 


004000 


002344 


003521 
003522 


003462 


003462 
003462 


002352 


003426 


SEQ 0089 
50141$: 
IF #TS.SC SETIN TSSREG THEN sIF SPECIAL COND STATUS IS SET THEN: 
BIT #TS.SC,TSSREG 
BEQ 50147$ 
IF CTCC NE #2 THEN sIF TCC IS NOT 2 THEN: 
CMP crcc,#2 
BEQ 50150$ 
IFB ERRREC EQ #0 THEN ;IF NOT IN ERROR RECOVERY: 
TsTs6 ERRREC 
BNE 50151$ 
INC SCCNTCRS) sINC SC COUNTER. 
ENDIF 
50151$: 
ENDIF 
501508: 
IF @TS.NXM SETIN TSSREG OR @TS.UPE SETIN TSSREG THEN ;WHEN NON-EXISTANT MEMO 
BIT @TS.NXM, TSSREG 
BNE 50152$ 
BIT @TS.UPE, TSSREG 
BEQ 50153$ 
50152$: 
IF @X2.0PM NOTSETIN MSGPKT+MS.xXS2 THEN sAND TAPE NOT MOVED 
BIT @X2 .0PM,MSGPKT «MS .xS2 
BNE 50154$ 1 
LET R2 := @5 ;SET TCCS INDEX 
MOV @5,R2 
ELSE 
BR 50155$ 
50154$: 
LET R2 := 04 ; TAPE MOVED, SET TCC4 INDEX 
MOV 04 ,R2 
ENDIF 
50155$: 
ELSE 
BR 50156$ 
50153$: 
LET R2 := CTCC ;SET DETECTED TCC INDEX 
MOV CTCC,R2 
ENDIF 
501568: 
LET R2 := R2 SHIFT 1 ;CURRENT TCC X 2. - on 
L 
. 7 PC, ,aTCCRACR2) :GO TO THE TCC HANDLING SUBROUTINE. 
L 
BR 50157$ 
50147$: 


IF @BRF.C SETIN CMOWRD THEN ;IF BRF IS USED IN THIS CMD THEN: 
BIT @BRF .C,CMOWRD 
BEQ 50160$ 
IF MSGPKT+MS.RFC NE #0 THEN ;IF THERE IS AN RFC THEN: 
TsT MSGPKT +MS .RFC 
BEQ 50161$ 


TSTB RANDOM 
BEQ 501628 
TSTB VFYFLG 
BEQ 50163$ 


IFB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 


GLOBAL 


AREAS 
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GLOBAL SUBROUTINES SECTION 


3530 
3531 


3532 
3533 


3547 


012462 


012462 
012462 


012524 
012524 


012526 


105737 
001403 


013737 


003526 


003310 


014050 


003473 


003430 


002314 


1$: 


EWMSG: 


IFB IRE EQ #0 THEN 


M7 


50162$: 
;IF NOT IN RANDOM OR IF CMD IS wWTv: 
;IF RFC ERROR REPORTS ARE ALLOWED: 
TSTB IRE 


BNE 50164$ 
LET HROCNT(RS) :=* HROCNTCRS) + #1 saan” tees ERROR COUNT 
ERRHRD 13,RFCERM,STAERM ;REPORT RFC ERROR 


JSR 


ENDIF 


ENDIF 
ENDIF 


ENDIF 
ENDIF 


PC ,RAMDUM 


IFB RWERR NE #0 THEN 


LET CMOPKT 
ENDIF 
ENDIF 
RTS PC 


:= CMDSAV 


HROCNTCRS) 


TRAP CSERHRD 
«WORD 13 
«WORD RFCERM 


50164$ 
50163$ 
50161$ 
50160$: 
50157$ 

;IF A READ/WRITE ERROR. HAS - eanane THEN: 
TSTB RWERR 
BEQ 50165$ 

sRESTORE CMD PACKET AFTER ERROR RECOV. 

MOV CMDSAV ,.CMOPKT 
50165$: 
50140$: 


sRETURN. 


-ASCIZ /ssNSAEARLY WARNING DURING WRITE AT END OF TRACK #02/ 


EVEN 


SEQ 0090 


GLOBAL AREAS 


MACRO 
GLOBAL SUBROUTINES SECTION 


N7 
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012740 


TCCRA: 


ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 


SEQ 0091 


GLOBAL AREAS MACRO M1200 21-MAR-84 16:45 PAGE 78 
GLOBAL SUBROUTINES SECTION SEQ 0092 


S61 ‘ SUBROUTINE TO HANDLE EARLY WARNING WRITE ERRORS. 
e 
3562 ’ THIS ROUTINE WILL SIMPLY TAKE CARE OF EARLY WARNING WRITE ERRORS 
3563 ‘ BY REISSUING THE COMMAND WHICH FAILED WITH THE RETRY MODIFIER SET. 
3564 ; NOTE THAT NO ERROR FLAGS, COUNTS, ETC ARE CHANGE 
eeee ' (EW ERRORS WILL NOT SHOW UP IN ERROR TALLIES). 
3567 012632 EWRTRY:: 
3568 012632 LET -(SP) :* CMOPKT sSAVE THE COMMAND PACKET 
012632 013746 002514 MOV CMOPKT , -( SP) 
3569 012636 LET CMOPKT :* CMDPKT SET.BY @MO0D.C1 sSET THE RETRY wt Ay IN COMMAND 
012636 052737 001000 002314 BIS @M00 .C1, CMDPKT 
3570 012644 LET ERRREC :B+ #1 sSHOW ERROR RECOVERY IN PROCESS 
012644 112737 000001 003475 move 01 ERAREC 
3571 012652 004737 010654 JSR PC ,EXCUTE 100 THE COMMAND 
3572 012656 LET ERRREC :B= 00 sNO MORE ERROR RECOVERY 
012656 105037 003475 CLRB ERRREC 
3573 012662 LET CMDPKT :* (SP)- sRESTORE THE ORIGINAL COMMAND STATUS 
012662 012637 002314 MOV (SP )+ ,CMOPKT 
3574 012666 LET R2 :* (SP)-> sMODIFY THE RETURN ADORESS 
012666 012602 MOV (SP )+,R2 
3575 012670 LET -(SP) :* #10. sOVERALL LOOP CONTROL 
012670 012746 000012 MOV #10.,-(SP) 
3576 012674 REPEAT sLOOP 
012674 501668: 
3577 012674 DELAY 250. sWAIT FOR THE UNIT TO STOP 
012674 012727 000372 MOV 0250. ,(PC)- 
012700 000000 . WORD 
012702 013727 002116 MOV LSOLY,(PC)- 
012706 000000 -WORD O 
012710 005367 177772 DEC -6(PC) 
012714 001375 BNE -4 
012716 005367 177756 DEC -22(PC) 
012722 001367 BNE .-20 
3578 012724 LET (SP) :* (SP) - @1 sONE LESS ITERATION 
012724 005316 DEC (SP) 
3579 012726 UNTIL (SP) EQ 00 sUNTIL = O 
012726 005716 TsT (SP) 
012730 001361 BNE 501668 
3580 012732 LET SP :* SP + 02 sCORRECT THE STACK 
012732 062706 000002 ADO @2,S5P 


3581 012736 000207 RTS PC sRETURN TO CALLER 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


012740 


012762 
012762 
012764 
012766 
012770 
012772 
012776 


C8 
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014050 


014050 


TCCO:: 


TCC1:: 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 
FRET TON ERROR. 
: 


OUTPUTS: 
REGISTERS: 
CALLS: 


LET MROCNT(RS) :* HROCNT(RS) + @1 ;UPDATE HARD ERROR COUNT 


INC HROCNT(RS ) 
ERRHRD 5S,SCERM,STAERM sREPORT SPECIAL CONDITION ERROR. 


TRAP CSERHRD 
. WORD 


JSR PC ,RAMOUM :GO DO RAM DUMP 
RTS PC sRETURN. 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, ATTENTION CONDITION. 
THIS ay INDICATES THAT THE ORIVE HAS UNDERGONE A STATUS CHANGE 
SUCH AS GOING OFFLINE OR COMING ONLINE. 


NPUTS: 

OUTPUTS: 

REGISTERS: R2,R4 

CALLS: OROPU 

ERRDF 6,ATTNM,STAERM sREPORT ATTENTION-UNIT OFF LINE. 
TRAP CsEROF 
-WORD 6 
-WORD ATTNM 


-WORD  STAERM 
JSR PC ,RAMDUM :GO DO RAM DUMP 
RTS PC sRETURN, 


SEQ 0095 


D8 
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GLOBAL SUBROUTINES SECTION SEQ 0094 
3611 1 SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 
361 ; A STATUE. ET EOs HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
361 3 TO Tf OGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT, EOT. 
3614 3 DeuTs, 
3615 : OUTPUTS: 
3616 : REGISTERS: 
oa 74 3 CALLS: 
3619 013000 TCC2:: IF @xO.BOT SETIN MSGPKT+MS.xXSO ANDB EXPBOT NE 00 THEN 
013000 032737 000002 002346 BIT @x0.B0OT ,MSGPKT «MS. xSO 
013006 001404 BEQ 501678 
013010 105737 003520 TsT6 ExPBOT 
013014 001401 BEQ 501678 
3620 3;IF AT BOT AND BOT IS EXPECTED: 
3621 013016 000452 BR TC2RTN sRETURN-TCC2 CAUSED BY EXPECTED BOT. 
3622 013020 ENOIF 
013020 501678: 
3623 013020 IF LSTEST EQ 03 THEN 
013020 023727 002114 000003 CMP LSTEST,@3 
013026 001011 BNE 50170$ 
3624 013030 IF PCMOWD EQ @WTM AND CMOWRD EQ @SRR THEN 
013030 023727 003432 100011 CMP PCMOWD , OWTM 
013036 001005 BNE 50171$ 
013040 023727 003426 104410 CMP CMOWRD , SRR 
013046 001001 BNE 501718 
3625 013050 000435 BR TC2RTN 
3626 013052 ENOIF 
013052 501718: 
3627 013052 ENDIF 
013052 501708: 
3628 013052 IF @xXO.RLS!XO.RLL!XO. TMK!XO.LET!xX0O.BOT SETIN MSGPKT+MS.xXSO THEN 
013052 032737 170002 002346 BIT @XO.RLS!XO.RLL!XO. TMK!IXO.LET 
013060 001431 BEQ 501723 
3629 3 IF 7 CAUSED BY ANYTHING BUT EOT: 
3630 013062 IFB RANDOM EQ #0 ORB VFYFLG NE "90 T 
013062 105737 003521 TSTB RANDOM 
013066 001403 ° BEQ 501738 
013070 105737 003522 TST8 VF YFLG 
013074 001423 BEQ 501743 
013076 501738: 
3631 3IF NOT IN RANDOM OR IF CMD IS WTV: 
3632 913076 IFB IRE EQ 00 THEN :IF RFC ERROR REPORTS ARE ALLOWED: 
013076 105737 003526 TSTB IRE 
013102 001020 BNE 501758 
3633 013104 IFB ERRREC NE @0O THEN 3IF WE ARE IN ERROR RECOVERY THEN: 
013104 105737 003475 TsT8 ERRREC 
013110 001403 BEQ 501768 
3634 013112 LET UNREC :B= UNREC + @1 3SET UNRECOVERABLE FLAG FOR LOG. 
C1i3112 105237 003474 INCB UNREC 
3635 013116 ELSE sELSE - IF NOT IN ERROR RECOVERY: 
013116 000402 GR 50177$ 
013120 501768: 
3636 013120 LET SCCNTCRS) :*= SCCNTCRS) + @1 ; INCREMENT THE SPEC COND COUNTER. 
013120 005265 003270 INC SCCNTC(RS) 
3637 013124 ENDIF 


013124 501778: 
3638 013124 LET HROCNT(R'S) := 4ROCNTCRS) + OL sUPDATE HARD ERROR COUNT. 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3639 


013144 


013146 


E8 


MACRO M1200 21-MAR-84 16:45 PAGE 80-1 


014050 


014050 
017402 


ERRHRD 7, TSAM,STAERM 


JSR PC ,RAMDUM 
ENDIF 


ENDIF 
ENDIF 
TC2RTN: RTS PC 


INPUTS 


OUTPUTS: 
REGISTERS: R2,R4 
CALLS: DROPU 


TCC3:: ERROF 8,FUNRM,STAERM 


JSR PC ,.RAMDUM 
JSR PC ,DROPU 
RTS PC 


INC HROCNT(RS) 

sREPORT TAPE STATUS ALERT. 
TRAP CSERHRD 

WORD 7 


“WORD TSAM 
~WORD STAERM 
3GO0 DO RAM DUMP 
501753: 
50174$: 
501723: 
sRE TURN. 


THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
pT te, vCK, BOT, ILC, WE, ILA, AND NBA. 


sREPORT FUNCTION REJECT. 
TRAP 


. WORD STAERM 
:GO DO RAM DUMP 
;OROP THE UNIT. 
sRETURN, 


SEQ 0095 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3685 


3686 


3687 
3688 


3689 


3690 
3691 
3692 
3693 
3694 
3695 


013170 
013170 


013276 


F8 
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026527 
001002 
000137 


023727 


105237 
105737 
001105 
013737 
013737 


002536 177774 
013666 


003434 000002 


002211 


003475 
002207 


014050 


002210 


003475 
003470 
003467 


003426 014730 
002314 014726 


TCC4:: 


SEQ 0096 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4, RECOVERABLE ERROR. 
TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. 

2 WRITE-ERROR-RECOVERY ALGORITHMS CAN BE SELECTED: 

THE FIRST ONE, VIA BADTSW SWITCH, DOES DETECT BAD SPOTS ON TAPE. 
IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 

OR 20 BAD SPOTS HAVE BEEN LOGGED. AFTER LOGGING 256 BAD 

eats A a ¥ TAPE OVERFLOW MSG IS PRINTED AND THE 


THE SECOND ALGORITHM ISSUES THE TK25 WRITE RETRY COMMAND 
UP TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 
WITH THE NEXT RECORD ON RECOVERY. 


INPUTS: 

OUTPUTS: 

REGISTERS: R2,R4. 

CALLS: RTLE, EXCUTE, GOWAIT, DROPU, WRTY 


IF DEVTBLC(RS) EQ @NINUSE THEN 
CMP DEVTBLC RS), ONINUSE 
50200$ 


BNE 
JMP 3$ 
ENDIF 
502008: 
IF CMOLG EQ @2 ANDB BADTSW NE 00 THEN 
CMP CMOLG , 2 
BNE 50201% 


IFB ERRREC EQ #0 ANDB ERCVER NE 00 THEN 


ERRSOFT 9,RERM,STAERM ; 
TRAP : SERSOF T 


-WORD RERM 
-WORD STAERM 
JSR PC, RAMDUM 7GO DO RAM DUMP 
ENOIF 
502028: 
IFB IREC EQ #0 THEN : 
TSTB TREC 


BNE 502033 
LET ERRREC :B= ERRREC + @1 ;RETRY FLAG FOR nt i UPDATE REC CNT 
LET WRTYER :B= WRTYER + 01 ;REWRITE ERROR FLAG FOR WRTY SUBR 


INCB WRTYER 
IFB WRTYFG EQ #0 THEN sFIRST RETRY ON THIS RECORD: SUBSEQUENT 
TsTs WRTYFG 
BNE 50204$ 
sRETRIES WITH TCC4 ERRORS BY-PASS THIS SECTION 
LET WTYWROD := CMOWRD sSAVE WRITE COMMAND PACKET 
MOV CMDWRD , WT YWRD 


LET WTYCMD := CMDPKT 3 
MOV CMDPKT ,WTYCMD 


G8 
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GLOBAL SUBROUTINES SECTION SEQ 0097 
3696 013312 LET WTYBRF ;:= CMDPKT+CP.CNT ’ 
013312 013737 002322 014732 CMOPKT +CP.CNT WT YBRF 
3697 013320 LET RWERR :B= RWERR + #1 ;LOG SUBR FLAG: COUNT WRT ERRORS 
013320 105237 003473 INCB RWERR 
3698 013324 LET WRTIYFG :B= WRTYFG + #1 sRETRY IN PROGRESS FLAG 
013324 105237 003467 INCB WRIYFG 
3699 013330 REPEAT 
013330 50205: 
3700 013330 LET WRTYCTCRS) := WRTYCTCRS) + #1 sCOUNT GLOBAL WRITE RETRIES 
013330 005265 003250 INC WRTYCTCRS) 
3701 013334 LET RETRYC ;:*= #0 sCLEAR @ 4 RETRIES PER RECORD 
013334 005037 003464 CLR RETRYC 
3702 013340 LET RPTCNT :B= 00 ;CLEAR @ OF REPEATS 
013340 105037 003466 CLRB RPTCNT 
3703 013344 004737 014350 JSR PC,WR sCALL WRITE RETRY 
3704 013350 "  DEVTBLCRS) EQ ONINUSE THEN 
013350 026527 002536 177774 CMP DEVTBLC RS), @NINUSE 
013356 001001 BNE 50206$ 
3705 013360 000542 BR 3% 
3706 013362 ENOIF 
013362 50206$: 
3707 013362 UNTILB WRTYER EQ #0 OR SBTPT HIS 040. sREPEAT RETRIES ON SAME RECORD 
013362 105737 003470 TsTs WRTYER 
013366 001404 BEQ 50207$ 
013370 027727 170122 000050 CMP @BTPT, #40. 
013376 103754 BLO 50205$ 
013400 502078: 
3708 sUNTIL RECOVERED OR 20 BAD SPOTS 
3709 013400 IF SBTPT HIS 040. THEN sWHEN 20 BAD SPOTS LOGGED (TWR) 
013400 027727 170112 060050 CMP SBTPT,@40. 
013406 103406 BLO 50210$ 
3710 013410 004737 015146 JSR PC,BORERS sERASE BAD RECORD 
3711 013414 LET RECCNTC(RS) := RECCNTCRS) - @1 3 
013414 005365 003330 DEC RECCNTCRS) 
3712 013420 004737 014050 JSR PC,RAMDUM :GO DO RAM DUMP 
3713 013424 ENDIF 
013424 502108: 
3714 013424 IF @BTPT HIS #512. THEN 
013424 027727 170066 001000 CMP @BTPT, e512. 
013432 103417 BLO 50211$ 
3715 013434 PRINTB OBTMSG2 ;BAD TAPE OVERFLOW MESSAGE 
013434 012746 015021 MOV @BTMSG2, -( SP) 
013440 012746 000001 MOV #1, -(SP) 
013444 010600 MOV SP ,RO 
013446 104414 TRAP CsPNTB 
013450 062706 000004 ADD @4,SP 
3716 013454 004737 017402 JSR PC ,OROPU ;DROP THE UNIT. 
3717 013460 LET RECCNT(RS) := 00 3 
013460 005065 003330 CLR RECCNT(RS) 
3718 013464 LET @TSOBCRS) := @RWCPK ;REWIND UNIT 
013464 012775 002334 002456 MOV @RWCPK , ATSOBC RS ) 
3719 013472 ENDIF 
013472 502118: 
3720 013472 LET WRTYFG :B= #0 sRETRY COMPLETE FLAG 
013472 105037 003467 CLRB LOTYFG 
3721 013476 LET MISCFG :B= MISCFG + @1 300 NOT HALT ON THIS CMD FLG 


013476 105237 003537 INCB MISCFG 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3722 


° 
3723 


3724 


3725 
3726 
3727 


37268 
3729 


3730 


3731 


3732 
3733 
3734 
3735 


3736 


3737 
3738 


3739 
3740 
3741 


3742 
3743 


3744 
3745 


013502 


MACRO M1200 


013737 


000402 


105237 


000463 
004737 


023727 
003411 


012702 
006202 
023702 
002403 
052737 


014730 003432 


003474 


014212 
003434 000002 


020000 002314 


003464 


003464 
001000 002314 
002210 


002536 177774 


H8 
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SEQ 0098 
LET PCMOWD := WTYWRD sRESTORE ORIGINAL WRT CMD AFTER RECOVERY 
MOV WTYWRD ,.PCMOWD 
ENDIF 
502048: 
ELSE 
BR $0212$ 
50203: 
LET UNREC :B= UNREC + @1 3 
INCB UNREC 
ENOIF 
50212$: 
ELSE 
BR 502138 
502018: 
JSR PC,.RTLE ;CHECK FOR RETRY LIMIT EXCEEDED. 
IF CMOLG GT #2 THEN sIF READ CMD THEN: 
CMP CMOLG, 2 
BLE 502148 
LET R2 := @RRECL SHIFT -1 ;R2=READ RETRY COUNT LIMIT / 2 
pe _ R2 
IF RETRYC GE R2 THEN ;IF RETRY COUNT IS MORE THAN HALF LIMIT: 
CMP RETRYC.R2 
BLT 502158 
LET CMOPKT := CMOPKT SET.BY @0PP.C ;SET OPPOSITE BIT FOR RETRY2. 
BIS @OPP .C ,.CMDPKT 
ENOIF 
502158: 
ENOIF 


502148: 
IF RETRYC EQ 80 ANDOB ERCVER NE @O THEN ; IF -—- a_i ERROR THEN: 
Y 


BNE 502168 
TsT6 ERCVER 


BEG 502168 
ERRSOFT 9,RERM,STAERM sREPORT RECOVERABLE ERROR 
TRAP _—"* 
. WORD 
WORD REAM 
“WORD STAERM 
JSR PC ,RAMDUM 3GO0 DO RAM DUMP 
ENDIF sPROVIDED eng ENABLED THE REPORT 
LET RETRYC := RETRYC + 1 ;UPDATE RETRY COUNT. 
INC RETRYC 
LET CMDPKT := CMDPKT SET.BY @MOD.C1 ;SET RETRY BIT IN CMD PACKE’. 
BIS @MO00 .C1, CMDPKT 
IFB IREC EQ 80 THEN 3IF ERROR RECOVERY ENABLED: 
TST8 IREC 
BNE 502178 
IF DEVTBLCRS) EQ ONINUSE THEN 
cmp bk ale ONINUSE 
BNE 50220 


BR 3% 
ENDIF 


502208: 
LET ERRREC :B= ERFREC + @1 ;SET ERROR RECOVERY FLAG. 


GLOBAL AREAS 
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GLOBAL SUBROUTINES SECTION 


3746 013644 


3747 013650 
3748 013654 
3749 013660 


105237 003475 


POP R2,R2 


004737 010654 
000137 011274 
ELSE 


LET UNREC :B= UNREC + 41 


105237 003474 
ENDIF 


ENOIF 
000207 3%: RTS PC 


JSR PC, ,EXCUTE 
JMP GOWAIT 


18 


INCB ERRREC 
sPOP 2 RTN ADRS FROM STACK. 
MOV (SP)+,R2 


MOV (SP )+,R2 
:GO EXECUTE THE RETRY COMMAND. 
3GO WAIT FOR INTERRUPT + CHECK STATUS. 


sELSE IF ERROR — IS NOT ENABLED: 


50221% 

502178: 
;SET UNRECOVERABLE ERROR FLAG. 
INCB UNRE C 


502218: 


502138: 
;RE TURN 


SEQ 0099 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


013670 
013674 
013674 
013700 
013702 
013702 
013704 
013706 
013710 
013712 
013716 
013716 
013716 
013716 
013722 
013722 
013726 
013730 
013730 
013734 
013734 
013740 
013740 
013746 
013746 
013750 
013752 
013756 
013762 
013762 
013764 
013764 
013764 
013770 
013770 
013770 


J8 
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014212 
003464 


014050 


003464 


002210 


003475 
003330 
003330 


010654 
011274 


003474 


167446 


TCCS:: 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 
TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND RE-ISSUE THE ORIGINAL COMMAND. 


INPUTS: 

OUTPUTS: 

REGISTERS: R2,R4, 

CALLS: RTLE, EXCUTE, GOWAIT, DROPU. 

JSR PC,RTLE sCHECK FOR RETRY LIMIT EXCEEDED 


IF RETRYC EQ @0 THEN sIF THIS IS THE ORIGINAL ERROR THEN: 
TsT RETRYC 
BNE 502228 
sREPORT RECOVERABLE ERROR. 
TRAP CSERSOF T 
-WORD 10 
-WORD STAERM 


ERRSOFT 10,RERM,STAERM 


JSR PC ,RAMDUM :GO DO RAM DUMP 
ENOIF 


LET RETRYC :* RETRYC + O1 
IFB IREC EQ 00 THEN 


502228: 
;UPDATE RETRY COUNTER. 
NC RETRYC 


I 
IF ERROR men * ENABLED: 


IREC 
BNE 50223$ 
LET ERRREC :B= ERRREC + 01 :SET ERROR RECOVERY FLAG. 
INCB ERRREC 
LET RECCNT(RS) := RECCNTC(RS) «+ 1 sUPDATE REC COUNT 
INC RECCNTCRS) 
LET @DATAWT := RECCNTC(RS) ;AND INSERT IT INTO WRT BFR 
MOV RECCNTCRS), @DATAWT 
POP R2,R2 :POP 2 RTN ADRS FROM STACK. 
MOV (SP )+,R2 
MOV (SP)+,R2 
JSR PC,EXCUTE ;GO RE-ISSUE THE COMMAND. 
JMP GOWAIT :GO WAIT FOR INTERRUPT + CHECK STATUS. 
ELSE sELSE IF ERROR RECOVERY IS — ENABLED: 
BR 50224$ 
50223: 
LET UNREC :B= UNREC + 01 ;SET UNRECOVERABLE ERROR FLAG. 
INCB UNREC 
ENDIF 
502243: 
RTS PC ;RETURN. 


SEQ 0100 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


013772 
013772 
014000 
014004 
014004 
014006 
014010 
014012 
014014 
014020 
014024 


K8 
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002334 002456 
011672 


014050 
017402 


TCC6:: 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 
TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 

IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 
SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 
COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 
DROPPED FROM THE TEST SEQUENCE. 


INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4 

CALLS: RTLE, WSSR, EXCUTE, GOWAIT, DROPU 


LET @TSDBCRS) := oRWCPK s ISSUE A REWIND COMMAND, 
MO ORWCPK , ATSDBC(RS ) 


Vv 
JSR PC,WSSR sWAIT FOR SUBSYSTEM READY, 
ERROF 11,URERM,STAERM sREPORT UNRECOVERABLE ERROR. 
TRAP CSEROF 


«WORD 11 
-WORD  URERM 
«WORD STAERM 
JSR PC ,RAMDUM :GO DO RAM DUMP 
JSR PC ,OROPU ;DROP THE UNIT. 


RTS PC ;RE TURN 


SEQ 0101 


GLOBAL AREAS 


GL 


3835 
3836 


014210 
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OBAL SUBROUTINES SECTION 


ee Ge of oe Ge Gs Ge @ oF 


INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4 

CALLS: 

TCC7:: ERROF 12,FATSM,STAERM 
104455 
000014 
004455 
004737 014050 JSR PC ,RAMDUM 
004737 017402 JSR PC ,DROPU 
000207 RTS PC 
RAMDUM: : 
IFB RAMWRT NE #0 THEN 

105737 002214 
001455 

PRINTX @RAMFHR 
012746 005306 
012746 000001 
010600 
104415 
0627 
012737 000010 003406 MOV #8. ,RAMSIZ 
012737 000020 003342 MOV #20 ,RAMHLD 
004737 015736 JSR PC,RAMER 
012737 000, 003342 MOV #200 ,RAMHLD 
004737 015736 JSR PC ,.RAMER 
012737 000016 003406 MOV #14, ,RAMSIZ 
012737 000214 003342 MOV #214 ,RAMHLD 
004737 015736 JSR ° R 
012737 000020 003406 MOV #16. ,RAMSIZ 
012737 000060 003342 MOV #60 , RAMHLD 
004737 015736 JSR PC,RAMER 

PRINTX @RAMLIN 
012746 005450 
012746 000001 
010600 
104415 
062706 000004 

ENDIF 

000207 RTS PC 


L8 


ae We TO HANOLE TERMINATION CLASS CODE 


THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING 


COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 
REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 
ADDITIONAL INFORMATION ON THE TYPE OF FATAL ERROR. 


sREPORT FATAL SUBSYSTEM ERROR. 
TRAP 


. WORD 

. WORD 

. WORD 
3GO DO RAM DUMP 


sDROP THE UNIT. 
sRETURN. 


TSTB 
BEQ 


sRAM FIELD IS 8 BYTES LONG 
sCOMMAND PACKET ADDRESS 
sREAD INT THEM 
sCHARACTERISTICS — ADDRESS 
sREAD AND PRINT 

;RAM FIELO IS 8 BYTES LONG 
sMESSAGE PACKET ADDRESS 

sREAD AND PRINT THEM 

sRAM FIELD IS SIXTEEN BYTES LONG 
;SENCE BYTES ADDRESS 

;READ AND PRINT THEM 


502258: 


7, FATAL SUBSYSTEM 


ORAMFHR , 


#1,-C(SP) 


@RAMLIN, 
#1, -(SP) 


SEQ 0102 


-CSP) 


-(SP) 


GLOBAL AREAS MACRO 
GLOBAL SUBROUTINES SEC 


014212 
014212 
014216 
014220 
014220 
014222 
014224 


023727 
001013 


105237 


000413 


023727 
001007 


105237 


M8 
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ON 


003434 


014050 
017402 


003473 
003434 


003464 


003474 


014050 
017402 


003464 


003474 


3 

$ 

3 INPUTS: 

$ OUTPUTS: 

3 REGISTERS: Re, R4, 
3 CALLS: DROPU 


RTLE:: IF CMDLG EQ #0 THEN 


ERROF 11,URERM,STAERM 


JSR PC ,RAMDUM 
JSR PC ,DROPU 
POP R2 


BR RTLRIN 
ENDIF 


LET RWERR :B= RWERR + #1 
If CMOLG EQ #2 THEN 
eo00ee IF RETRYC EQ @WRECL THEN 
LET UNREC :B= UNREC «+ #1 
ERROF 14,RLEXM,STAERM 


JSR PC,RAMDUM 
JSR PC,DROPU 
POP R2 
ENDIF 
ELSE 
IF RETRYC EQ #RRECL THEN 
000020 
LET UNREC :B= UNREC + #1 


ERRHRD 14,RLEXM,STAERM 


SUBROUTINE TO CHECK FOR RETRY LIMIT EXCEEDED. PRINTS ERROR MESSAGE 
IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 


sIF CMD IS NOT A READ OR WRITE THEN: 
TST CMOLG 


BNE 50226% 
sREPORT UNRECOVERABLE ERROR. 
TRAP CSEROF 
- WORD 1 
-WORD  URERM 


-WORD STAERM 
;GO DO RAM DUMP 
;DROP THE UNIT. 
MOV (SP)+,R2 
sAND RETURN. 
502265: 
;SET READ/WRITE — FLAG. 


NC RWERR 
;IF CMD IS A WRT OR WTM: 
CMP 


CMOLG, #2 
BNE 50227$ 
IF RETRY COUNT HAS REACHED LIMIT: 
CMP RETRYC, OWRECL 


BNE 50230$ 
sSET UNRECOVERABLE FLAG 
INCB UNREC 


sREPORT RETRY LIMIT EXCEEDED. 
TRAP _ 


. WORD 
-WORD RLEXM 
-WORD STAERM 
:GO DO RAM DUMP 
;DROP THE UNIT. 


MOV (SP)+,R2 
502308: 

sELSE - CMD IS A READ: 
BR 50231$ 
502273: 

;IF RETRY COUNT HAS REACHED LIMIT: 
CMP RETRYC, oRRECL 


BNE 50232$ 
sSET UNRECOVERABLE FLAG 
INCB UNREC 


sREPORT RECOVERABLE ERROR. 
TR CSERHRD 
14 


-WORD RLEXM 
-WORD STAERM 


SEQ 0103 


GLOBAL AREAS MACRO wie00 


GLOB 


AL SUBROUTINES SECTION 


014344 012602 


4346 
3869 014346 000207 
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POP R2 
ENDIF 
ENDIF 
RTLRTN: RTS PC 


N8 


sRETURN 


SEQ 0104 


MOV (SP)+,R2 
50232$: 
502318: 
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GLOBAL SUBROUTINES SECTION SEQ 0105 


3871 ’ SUBR TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD. 

3872 ; REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 

3873 ' IF ALL 4 REPEATS GOOD, RECORD IS RECOVERED 

3874 F AND A RECOVERABLE WRITE ERROR IS LOGGED. 

3875 ’ IF ANY OF 4 REPEATS BAD, ERASE BAD RECORD, LOG SUSPECTED 

3876 1 BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP TO 4 REPEATS EACH. 

3877 3 IF RECORD NOT GOOD AFTER 4 RETRIES, ERASE IT, EXIT WITH 

3878 3 ERROR FLAG WRTYER SET, PRINTING RETRY FAILED. 

3879 : THIS ALL SCHEME IS REENTERED 20 TIMES MAX, IE 20 BAD 

3880 ‘ SPOTS MAX ARE ALLOWED. 

3881 

3882 : INPUTS: 

3883 ’ OvuTPuUTS: 

3884 3 REGISTERS: R3,R4 

coon ’ CALLS: BORERS, REWRT 

3887 014350 WRTY:: IF DEVTBLCRS) NE @NINUSE THEN sIF DRIVE NOT DROPPED 
014350 026527 002536 177774 CMP DEVTBLCRS), ONINUSE 
014356 001537 BEQ 502338 

3888 014360 BEGIN RETRY 

3889 014360 REPEAT 
014360 502353: 

3890 014360 BEGIN REPEAT 

3891 014360 REPEAT 
014360 502378: 

3892 014360 004737 015146 JSR PC ,BORERS sBACKSPACE/ERASE ONE RECORD 

3893 014364 LET WRTYER :B= 00 ;CLEAR WRITE RETRY ERROR 
014364 105037 003470 CLRB WRTYER 

3894 014370 004737 015322 JSR PC, REWRT sREWRITE RECORD ON SAME SPOT 

3895 014374 IF DEVTBLCRS) EQ ONINUSE THEN 
014374 026527 002536 177774 cmp DEVTBLC RS), ONINUSE 
014402 001003 BNE 502408 

3896 014404 LET RPTCNT :B= 03 
014404 112737 000003 003466 MOVB @3,RPTCNT 

3897 014412 ENOIF 
014412 502408: 

3898 014412 LET RPTCNT :6=* RPTCNT + @1 sCOUNT REPEATS 
014412 105237 003466 INCB RPTCNT 

3899 014416 UNTILB RPTCNT EQ @4 ORB WRIYER NE 00 sLIMIT: 4 REPEATS OR RECOVERED 
014416 123727 003466 000004 CMPB RPTCNT , 04 
014424 001403 BEQ 502418 
014426 105737 003470 TsT8 WRTYER 
014432 001752 BEQ 502378 
014434 502418: 

3900 014434 END REPEAT Fy 
014434 502368: 

3901 014434 LET RETRYC :* RETRYC «+ @1 sCOUNT RETRIES 
014434 005237 003464 INC RETRYC 

3902 014440 IF DEVTBL(RS) EQ ONINUSE THEN 
014440 026527 002536 177774 CMP OEVTBLC RS), ONINUSE 
014446 001002 BNE 50242$ 

3903 014450 000502 BR 38 

3904 014452 ELSE 
014452 000400 BR 502438 
014454 502428: 

3905 014454 ENDIF 


014454 502438: 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3906 


3907 
3908 
3909 


3910 


3911 
3912 


3913 
3914 


3915 
3916 


3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 


3927 


014622 


MACRO 


105737 
001001 


000457 


016537 


017704 
062704 


010477 


020427 
101005 


013703 
060304 
016514 


105237 
105037 
105037 


023727 
001257 
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IFB WRTYER EQ 00 THEN 


TsTB WRTYER 


003470 
LEAVE RETRY 
ELSE 
IFB ERCVER NE #0 THEN 
002207 
PRINTB OBTMSG1,RETRYC,<B,RPTCNT> 
003466 
003464 
014734 
000010 
ENDIF 
IF RETRYC EQ @1 THEN 
003464 000001 
LET BIPT := BTADDRC(RS) 
002550 003516 
LET R4 := BBIPT + 02 
166750 
000002 
LET SBIPT := R4 
166740 
IF R4 LOS 040. THEN 
000050 
LET R3 := BIPT 
003516 
LET R4 :=* R&4 + RB 
LET (R4&) := RECCNTC(RS) 
003330 
ENDIF 
ENDIF 
LET ERSFLG :B= ERSFLG « @1 
003533 
LET RWERR :Be 00 
003473 
LET RPTCNT :B= 00 
003466 
ENOIF 
UNTIL RETRYC EQ 04 
003464 000004 


END RETRY 


SEQ 0106 


BNE 502443 
sEXIT RETRY LOOP IF Re COVERED 
BR 50234$ 
$ 
502443; 
S 
TSsTs eateae 
BEQ 50246 
sPRINT SUSPECTED BAD SPOT 
CLR -(SP) 
BISB RPTCNT (SP) 
MOV RETRYC, - (SP) 
MOV @BTHSG1, -( SP) 
MOV @3,-CSP) 
MOV SP ,RO 
TRAP CsPNTB 
ADO #10,SP 
8 
502463: 


1ON FIRST RETRY, LOGG BAD SPOT 
CMP 


mr ts a 


BNE 50247 
sBTPT IS BOTH THE BAD. SPOT COUNTER 
MOV BTADOR(RS) .BTPT 


sANO en INDEX 


SBTPT,R4 
ADD @2,R4 
: 
MOV R4, SB TPT 
3 
CMP R4,040. 
BHI 502508 
sSTORE FIRST 20 BAD SPOTS 
MOV BIPT,.RS 
3 
ADD R3,R4 
’ 
MOV RECCNT(RS),CR4) 
502508: 


502478: 
sERASE FLAG TO ERASE BAD RECORD 


NCB ERSFLG 


I 
oteneme’'t vl ERROR FLAG ON FAILING RETRY 
L 


RWERR 


sCLEAR y ty COUNT 4» NEXT RETRY 


RPTCNT 
3 
502453: 
sLIMIT: 4 RETRIES 
CMP RETRYC, 04 
BNE 502358 


50234$; 


GLOBAL AREAS MACRO 
GLOBAL SUBROUTINES SE “TION 


3928 


Olaess 
014626 


014724 


014726 
014730 
014732 


014734 
014737 
014742 
014745 
014750 
014753 
014756 


105737 
001415 


105737 
001410 
012746 
012746 
010600 
104414 
062706 


012746 


012727 
000000 
013727 
000000 
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003470 


000012 


000372 
002116 
177772 
177756 


3$: 


D9 


IFB WRTYER NE @0 THEN 


IFB ERCVER NE @0 THEN 


PRINTB @BTMSGS 


ENDIF 
ENDIF 
ENDIF 
LET -(SP) := #10. 
REPEAT 
DELAY 250. 


LET (SP) := (SP) - 
UNTIL (SP) EQ 00 


LET SP :* SP + 02 
RTS PC 


-WORD O 
-WORD 0O 
-WORD O 


1 


SEQ 0107 
TsT6 WRTYER 
BEQ 502518 
TsT8 ERCVER 
BEQ S02S2$ 
sPRINT RETRY FAILED 
MOV @BTMSG3S, -( SP) 
MOV #1 ° -(SP) 


MOV SP RO 
TRAP CSPNTB 
ADD 04, 
502528: 
502518: 
50233$: 
sLOOP CONTROL 
MOV #10. ,-(SP) 
50253$: 
sWAIT FOR THE UNIT TO STOP 
MOV » eile 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22¢PC) 
BNE .-20 
sONE LESS ITERATION 
DEC (SP) 
;' TILL ZERO! 
TsTt (SP) 
BNE 502533 
sPOP THE STACK 
@2,SP 


sSTORAGE FOR WRITE CMO WHILE RETRYING 
sSTORAGE FOR WRITE CMD WORD WHILE RETRYING 
sSTORAGE FOR WRITE BPCR WHILE RETRYING 


-ASCIZ /#ASUSPECT BAD SPOT AFTER SD18A RETRY, SD1SA REPEATSN/ 


GLOBAL AREAS 


GLOBAL SUBROUTINES SECTION 


3953 


3954 


014761 
014764 


015137 
015142 


=? 
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BIMSG2: 


BITMSGS: 


-ASCIZ /SNSABAD TAPE OVERFLOW: CHANGE CARTRIDGE !sNsN/ 


-ASCIZ /#ARETRY FAILED ON BAD SPOT...ERASED!sN/ 


-EVEN 


SEQ 0108 


GLOBAL AREAS 


MACRO M1200 21- 


GLOBAL SUBROUTINES SECTION 


013737 
012737 


013737 
042737 


013737 
012737 


105737 
001426 


013737 
012737 
013737 


013737 
004737 


026527 
001441 


013737 
013737 
013737 
013737 


002536 


003426 
014730 
014726 
002314 


ry 
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003432 
003426 


002314 
002314 


003430 
002316 


003432 
003426 
002314 
003430 


177774 


003432 
003426 
002314 
003430 


SUBR TO BACSPACE ONE RECORD 


IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 


INPUTS: ERSFLG 1 = DO ERASE 
OUTPUTS: 
REGISTERS: 
CALLS: EXCUTE, GOWAIT, CKHAE 
BORERS:: LET PCMDWD := CMDWRD sSET COMMAND TO SPACE = 
"] 
LET CMDWRD := @SRR F _ee 
LET CMDPKT :=*= CMDWRD CLR.BY OBRF.C ; 
MOV 
BIC 
LET CMDSAV :* CMOPKT : ae 
Vv 
LET CMDPKT+CP.ADL := @1 ; 
MOV 
LET CMOLG := 00 F 
CLR 


REWRT: 


JSR PC.CMDAC 
JSR PC ,EXCUTE 
JSR PC,GOWAIT 
JSR PC, CKHAE 
IFB ERSFLG NE #0 THEN 
LET PCMOWD := CMOWRD 
LET CMOWRD := @ERS 
LET CMDPKT := CMOWRD 
LET CMDSAV :* CMDPKT 
PC .CMDAC 
JSR PC, EXCUTE 
JSR PC,GOWAIT 
PC, CKHAE 
LET ERSFLG :B= 00 
ENOIF 


WHEN ERASE FLAG IS SET, 00 ERA 
TST8 


BEQ 
MOV 


CLRB 
50254$: 


RTS PC 
SUBR TO REWRITE A BADLY WRITTEN RECORD 


IF DEVTBLC(RS) NE @NINUSE THEN 


LET PCMOWD := CMOWRD 
LET CMOWRD := WTYWRD 
LET CMDPKT := WIyYCMD 
LET CMDSAV := CMOPKT 


sIF DRIVE NOT DROPPED 
CMP 


BEQ 
sRESTORE WRITE COMMAND — 
Vv 


SEQ 0109 


CMOWRD , PCMOWD 
@SRR , CMOWRD 


CMOWRD . CMDPKT 


CMOPKT ,CMDSAV 
@1,.CMOPKT+CP. ADL 
CMOLG 


SE 
ERSFLG 
50254$% 
CMOWRD , PCMOWD 
ERS ,CMOWRD 
CMOWRD , CMOPKT 


CMDPKT ,CMOSAV 


ERSFLG 


DEVTBLCRS), ONINUSE 
50255$% 


CMDWRD , PCMOWD 
WTYWRO , CMOWRD 
WTYCMD,.CMOPKT 
CMDPKT ,CMDSAV 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3993 


G9 
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013737 
013737 
012737 


004737 
004737 


003414 
014732 
000002 
007600 
010654 
002536 


011274 
017706 


002316 
002322 
003434 


177774 


LET CMDPKT+CP.ADL := DATAWT : - 
] 
LET CMDPKT+CP.CNT :* WTYBRF : nae 
LET CMOLG := 62 : 
MOV 
JSR PC,CMDAC 
JSR PC, ,EXCUTE sRE-WRITE RECORD 
IF DEVTBLCRS) NE @NINUSE THEN 
CMP 
BEG 
JSR PC,GOWAIT F 
JSR PC, CKHAE 3 
ENDIF 
502568: 
ENDIF 
502558: 


RTS PC 


SEQ 0110 


DATAWT ,CMDPKT+CP . ADL 
WTYBRE ,CMOPKT+CP.CNT 
@2,CMOLG 


DEVTBLCRS), ONINUSE 
50256$ 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


4025 


4027 


4029 
4050 


H9 
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163712 


010203 
062703 


021227 
003404 
162712 
0052153 
000771 


010302 
062702 


021327 
003404 
162713 
005212 


000002 
015722 
002560 


003424 
002344 


002344 


000010 
001747 


001750 


000010 
001747 


001750 


003424 


R2, RS, R4. 


LET ERLOG :B- ERLOG + 41 
LET R4 


:* CMOLG 


IF R& NE @0 THEN 


LET R4 :* RA - 02 


LET (R2) :* (R2) + BRECNT 


ADO 
IF MSGPKT+MS.RFC LOS BRFCNT THEN ;IF THE RFC ~~ 


SUBROUTINE TO LOG BYTES READ/WRITTEN. 
ALSO UPDATES READ/WRITE ERROR COUNTERS. 
INPUTS: 
OuTPUTS: 
REGISTERS: 
CALLS: 

IFB ERLOG EQ @0 THEN 


SEQ O111 


IF DATA AND ERRORS HAVE NOT BEEN LOGGED 7HEN: 


TSTB 
BNE 
sSET LOG DONE FLAG. 


ERLOG 
50257$ 


RLOG 


INCB E 
sGET CURRENT sae” eee CODE. 


sIF THERE IS A CODE THE 
TST 


CMOLG ,.R4 


R4 
502608 


BEQ 
sADJUST THE CODE FOR TABLE INDEX. 
SUB @2,R4 
LET R2 :* RS + BINC(R4) + @CNTBGN ;R2 = ADR "" ww LSW. 


ADO 
sADD BRF TO LSW. 


RS .R2 
BINC(R4) ,R2 
@CNTBGN,R2 


BRFCNT ,CR2) 


BHI 502618 
LET (R2) :=* (R2) - MSGPKT+MS.RFC ;SUBTRACT RFC FROM EXPECTED BRF. 


ENDIF 


LET R3 :* R2 + 010 


weiLe (R2) GI e999. DO 


LET (R2) :* (R2) - 01000. 
LET (R35) := (RB) + O1 
ENDOO 
LET R2 :* RB + 010 
WHILE (R3) GT 0999. DO 
LET (RE) :* (R3B} - &1000. 
LET (R2) :* (R2) + OL 


sus 
502618: 
383 = ADR OF 2ND WORD. 
MOV 
ADO 


5026238: 
CMP 


BLE 
sUPDATE BYTE COUNT 
SUB 


s2ND WORD. 
INC 


BLE 
sUPDATE BYTE COUNT 
SUB 


35RD WORD. 
TNC 


MSGPKT «MS .RFC,CR2) 


R2,R3 
#10,R3 


(R2), 0999. 
50263$ 
#1000. ,(R2) 
(R3) 

502628 


R3,R2 
#10,Re2 


(R3), 0999. 
50265% 
#1000. ,(R3) 
(Re) 


OR THE SAME AS BREF 
MSGPKT +MS.RFC.BRFCN 


THEN: 
T 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


4031 


4032 


4035 


4034 


4035 
4036 


4037 


4038 


4039 


4040 
4041 
4042 


4043 
4044 


4045 


4046 


4047 
4048 
4049 
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000771 


010203 
062705 


021227 
003404 


162712 


000010 


001747 


001750 


003475 


015730 
002720 


003474 


000010 


ENDDO 


LET RS :* R2 + 010 


WHILE (R2) GT #999. DO 


LET (R2) :* (R2) - #1000. 


LET (R3) z= (RB) + O1 
ENOOO 


IFB RWERR NE @O THEN 


BEQ 
LET R2 :* RS + EINC(R4) + OWRREC ;R2 = ADR OF COUNTER. 
MOV RS 


IFB UNREC NE ©0 THEN 


LET R2 := R2 + 010 
LET (R2) := (R2) + O1 
ELSE 


LET (R2) :* (R2) + O1 
IFB IREC EQ #0 THEN 


BNE 
IFB DROPED EQ #0 ANDB ERCVER NE @0 THEN i aaa 


PRINTB ONURTY1,RETRYC 


ENOIF 
ENOIF 
ENDIF 


BR 50264$ 
2658 
sR3 = ADR OF 4TH WORD. 
MOV R2,R3 
ADD #10,R3 
502668: 
cmp CR2), 0999. 
BLE 502678 
sUPDATE BYTE COUNT 
Su8 #1000. ,(R2) 
34TH WORD. 
INC CR3) 
BR 502663 
502678: 
sIF R/W ERROR, UPDATE ERROR COUNT. 
TSTB RWERR 


502708 


+R2 
ADO EINC(R4),R2 
ADD @WRREC ,R2 
sIS THE ERROR UNRECOVERABLE ? 
T UNREC 


TSTB 

BEQ 502718 
sYES, POINT TO NEXT COUNTER. 

ADO #10,R2 
sUPDATE THE ERROR COUNTER 

INC (R2) 
sELSE - IF ERROR IS RECOVERABLE: 
BR 50272$ 


$0271$: 
sUPDATE THE ERROR “OUNTER 


INC (R2) 
sIF ERROR RECOVERY IS ENABLED: 
TSTB IREC 
OR 
BNE 50274$ 
TsT8 ERCVER 
BEQ 2748 
sPRINT @ OF RETRIES os 
v 
MOV ONURTY 1 
MOV 2, -(SP) 


ADD 06, SP 
sPROVIDED PRINT HAS BEEN ENABLED 
502748: 


502733: 
5027238: 


SEQ O112 


502738 
HAS NOT BEEN DROPPED: 
OPED 


GLOBAL AREAS 


GLOBAL SUBROUTINES SECTION 


015722 


4056 015724 


015726 


015730 
015732 
015734 


JI 
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ENDIF 
502708: 
ENDIF 
502608: 
ENDIF 
50257$: 
RTS PC 
INDEXES TO BYTE COUNTERS. 
0 sWRITE. 
40 sREAD REV. 
100 ;READ FwO 
INDEXES TO READ/WRITE ERROR COUNTERS. 
0 s;WRITE. 
20 sREAD REV. 
40 sREAD FWD. 


SEQ 0113 
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011672 


011672 
002456 
000001 


003406 
003342 


~~ 
RAMER: : 


108; 


eg | 


K9 


-SBTTL RAMER - READ AND DISPLAY SELECTED RAM 
:¢ 
sROUTINE TO READ THE SELECTED RAM LOCATIONS 


PRINTX 


TspBCRS), R4 


PC,WSSR 
R2,(R4) 


PC,WSSR 
STSBACRS),CR1)> 


@RAMIOP, R2,R4 


@RAMDATA,R1 
RAMSIZ,R3 
R4 

CR1)+,R4 
#177400 ,R4 
@RAMPD ,R4 


sADDRESS TO SAVE THE RAM DATA 

sBYTE ADDRESS OF THE FIRST RAM DATA 
sSET THE SIZE OF THE READ UP 

sMOV THE TSOB ADDRESS INTO R4 

sADD 1 TO IT 


sWAIT FOR THE SSR TO SET 
sSELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sADDRESS OF THE NEXT RAM LOCATION 
sNUMBER OF LOCATIONS COUNTER 
sGET THE RAM SIZE 

sGET THE STARTING RAM ADDRESS 
sCALCULATE THE END ADDRESS 
sCORRECT VALUE OF PRINTOUT 
sRAM ADDRESS = 10 - 17, ETC. 


sADORESS OF WHERE RAM DATA IS 
sTHE SIZE OF THE RAM FIELD READ 
sNO EXTRA DATA LEFT OVER 

sPICK UP BYTE OF RAM DATA 

sGET RIO OF SIGN EXTEND 


:"010 211 111 222 377 000 123 134 ETC.” 


sLOOP UNTIL ALL PRINTED 


PC ;RETURN 
IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 


TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE, CHECK DATA, 
READ FORWARD, CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 


INPUTS: 
OUTPUTS: 


SEQ 0114 


@RAMPD 
@2,-(SP) 
SP RO 
CSPNTX 
06, SP 


GLOBAL AREAS 


RAMER 
4110 
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4113 


4114 


4115 


4116 
4117 
4118 


4119 
4120 


4121 
4122 


4123 
4124 
4125 


4126 
4127 


4128 
4129 


016142 


MACRO 


005037 


105737 
001437 


105737 
001015 


013737 
012737 


012737 
004737 


005037 


026527 
001413 


013737 
012737 


012737 
004737 


000207 


003410 
003522 


003532 


003426 
104401 


000004 
016254 
003410 
002536 


003426 
104001 


000006 
016254 


003432 
003426 
003434 


177774 


003432 
003426 
003434 


: 
+ 


VF YDAT:: 
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REGISTERS: 
CALLS: 


LO 


VFEXC. 


LET CMPDAT :- #0 


IFB VFYFLG NE #0 THEN 


IFB STREAM EQ @0 THEN 


LET PCMDWD := CMDWRD 


LET 
LET 


JSR 
LET 


ENOIF 


IF DEVTBLC(RS) NE @NINUSE THEN 


CMOWRD := @RDR 
CMOLG := 04 


PC, VFEXC 
CMPDAT := #0 


LET PCMOWD := CMOWRD 
LET CMOWRD := ORDF 
LET CMOLG := 06 


JSR 
ENOIF 


ENDIF 
RTS 


PC, VFEXC 


PC 


sBTL 
CLR CMPDAT 
:IF DATA IS TO BE VERIFIED: 
TSTB VF YFLG 
BEQ 502753 


TSTB STREAM 
BNE 50276$ 
sSAVE THE wer COMMAND WORD. 
CMOWRD , PCMOWD 
sCOMMAND IS READ REV. 
MOV @ROR , CMHOWRD 
sSET UP CMD ——— INDEX. 


Vv 04 ,CMOLG 
3GO READ ALL THE RECORDS REV. 


;BTL 
CLR CMPDAT 
50276: 
CMP + lee peemaa 
BEQ 50277$ 
;SAVE THE PREVIOUS COMMAND WORD. 
MOV CMOWRD , PCMOWD 
sCOMMAND IS READ FwD. 
MO @RDF , CHDWRD 


V 
3SET UP CMD LOGGING INDEX. 
v 6, CMDLG 
3GO READ ALL RECORDS FWD. 


50277: 


50275$: 
;RETURN. 


SEQ 0115 


M9 
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RAMER - READ AND DISPLAY SELECTED RAM SEQ 0116 

4131 3 SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 

4132 3 INPUTS: 

4133 3 OUTPUTS: 

4134 3 REGISTERS: Re 

aise 3 CALLS: CMDAC, FIRSTU, VFISU, NEXTU, CKHAE. 

4137 016254 VFEXC:: LET CMDPKT := CMDWRD CLR.BY OBRF.C ;COMMAND PACKET = READ REV OR FWD. 
016254 013737 003426 002314 MOV CMOWRD , CMDPKT 
016262 042737 004000 002314 BIC @BRF .C,CMDPKT 

4138 016270 IFB SWBFLG NE #0 THEN :IF BYTES ARE TO BE SWAPPED: 

016270 105737 003524 TSTB SWBFLG 
016274 001403 BEQ 50300$ 

4139 016276 LET CMOPKT := CMDPKT SET.BY #SWB.C ;SET SWAB BIT IN CMD PACKET. 
016276 052737 010000 002314 BIS @SWB .C,CMDPKT 

4140 016304 ENDIF 
016304 50300$: 

4141 016304 LET CMDSAV := CMDPKT ;SAVE COMMAND PACKET 1ST WORD. 

016304 013737 002314 003430 MOV CMDPKT , CMDSAV 

4142 016312 013737 003416 002316 MOV oe CMOPKT «CP. ADL ;SAVE BUFFER START ADDRESS. 

4143 016320 LET NCNT := ;CLEAR NUMBER OF OPERATIONS. 

016320 005037 003420 CLR NCNT 

4144 016324 WHILE NCNT LT NCNT1 DO ;WHILE THERE ARE ae REMAINING: 
016324 50301$ 
016324 023737 003420 003422 CMP ” NCNT, NCNT1 
016332 002101 BGE 5030 2$ 

4145 016334 004737 007600 JSR PC,CMDAC sSTORE CMD ASCII IN ERROR MSG. 

4146 016340 105737 003532 TSTB STREAM ;CHECK IF WE ARE STREAMING 

4147 016344 001006 BNE i$ ;BRANCH OVER ath y CHECK. THIS ENABLES 

4148 ;US TO TEST ONE DRIVE AT A TIME. 

4149 016346 004737 017300 JSR PC,FIRSTU 3SET UP FOR FIRST UNIT 

4150 eta WHILE DEVTBLC(RS) NE END DO i WHILE THERE ARE DEVICES REMAINING: 
016352 026527 002536 177777 CMP OEVTBLC(RS), #END 
016360 001445 BEQ 50304$ 

4151 016362 1$: IF @MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 

016362 032737 000400 003426 BIT @MOD .CO, CMDWRD 
016370 001421 BEQ 50305$ 

4152 016372 IF @XO.BOT NOTSETIN EOTFLGC(RS) THEN ;IF NOT AT BOT 
016372 032765 000002 003506 BIT #x0.BOT,EOTFLG(RS) 
016400 001014 BNE 50306$ 

4153 016402 IF #xO.EOT SETIN EOTFLGC(RS) THEN ;BUT IF AT EOT 
016402 032765 000001 003506 BIT #x0O.EOT EOTFLGCRS) 
016410 001406 BEQ 50307$ 

4154 016412 IFB ALLEOT NE #0 THEN ;AND ALL OTHERS AT EOT 
016412 105737 003531 TSTB ALLEOT 
016416 001402 BEQ 503103 

4155 016420 004737 016540 JSR PC, VFISU ; THEN READ VERIFY 

4156 016424 ENDIF ;IF NOT ALL AT EOT, FREEZE UNIT(S) ATE 
016424 50310$ 

4157 016424 ELSE ;IF NOT AT BOT AND 
016424 000402 ae 503115 
016426 

4158 016426 004737 016540 JSR PC, VFISU aROT "at EOT, READ vFY 

4159 016432 ENDIF 
016432 50311: 

4160 016432 ENDIF 


016432 50306$: 
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4162 
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005337 


005237 


013737 


000673 
000207 
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003556 
003426 


177774 


003420 


003432 


2s: 


ELSE 


N9 


SEQ 0117 


sELSE IF CMD IS NOT REVERSE: 
BR 50312$ 


SO 
IF #xXO.EOT NOTSETIN EOTFLGCRS) OR #CMD. -€0 NOTSETIN CMOWRD T 


JSR PC, VFISU 
ENDIF 


ENDIF 
TSTB STREAM 
BNE 2$ 
JSR PC,NEXTU 
ENDDO 


JS® 


PC, 


LET NCNT 


ENDIF 


LET NCNT 
LET PCMOWD := CMDWRD 


ENDODO 


PC 


CKHAE 
IF DEVTBLCRS) EQ @NINUSE THEN 


:= NCNT1 - #1 


:= NCNT + @1 


#x0.EOT, COTFLGC RS) 


BEQ 50313$ 
BIT @CMD .CO,CMDWRD 
BNE 50314$ 


50313$: 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
;ISSUE CMD, CHECK STATUS AND DATA. 


50314$: 

50312$: 
;CHECK FOR TEST OF ON UNIT AT A TIME. 
;BRANCH, IF STREAMING TESTS. 
3GO FIND THE NEXT UNIT. 

BR 50303$ 


50304$: 
;CHECK FOR HALT AFTER EACH CMD. 
VIF ORIVES BEEN — EXIT 


Cc DEVTBLC(RS), #NINUSE 
BNE 50315$ 

MOV NCNT1,NCNT 

DEC NCNT 


50315$: 
;UPDATE THE RECORD COUNT. 
INC NCNT 
;SAVE PREVIOUS COMMAND WORD. 
MOV CMOWRD . PCMOWD 


BR 50301$ 
50302$: 
sRETURN. 
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013702 
062 702 


020237 
001403 
012742 
000772 
004737 
105737 


001002 
004737 


105737 
001025 


032765 
001021 


023727 
001405 
004737 
000412 
005237 
023737 
003404 
004737 


005037 


003416 
000010 


003416 


177777 


010654 


003527 
011274 


003527 


003506 


003412 


B10 
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vF ISU 


SUBROUTINE TO ISSUE COMMAND, AWAIT INTERRUPT, 
CHECK STATUS, CHECK DATA, 

INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: FXCUTE, GOWAIT, CKDATA, 


33 
LET R2 :* DATARD + 06, sINIT READ BUFFER POINTER. 


MOV DATARD ,R2 
06 


ADO “° 
WHILE R2 NE DATARD 00 sUNTIL 8 BYTES HAVE BEEN SET, 


593168: 
CMP R2,D0ATARD 
BEQ 50317$% 
LET -(R2) :* @-1 sINIT READ BUFFER. 
MOV @-1,-(R2) 
ENDDO 
BR 503168 
503178: 
JSR PC,ExCuTEe sGO EXECUTE THE COMMAND. 
IFB DRPOPED EQ @0 THEN sIF UNIT HAS NOT BEEN DROPPED THEN: 
TSsT8 OROPED 
BNE 503208 
JSR PC ,GOWAIT 3GO WAIT FOR DONE BIT. 
ENDIF 


503208: 
3sIF UNIT HAS NOT BEEN ate A THEN: 
TsT8 enares 


IFB DROPED EQ 00 THEN 


BNE 503218 
IF @XO.B0T NOTSETIN EOTFLGC(RS) THEN sWHEN NOT REVERSED INTO BOT, THE 
BIT @x0.B0T ,EOTFLGC(RS ) 


BNE 503228 
CMP LSTEST,e@3 
503238 


IF LSTEST NE @3 THEN 


BEQ 

JSR PC,CKDATA 3GO VERIFY DATA. 

ELSE 
BR 5035248 
503238: 

INC CMPDAT sONE MORE XFER BEFORE A COMPARISON 

IF CMPDAT GT DATRAT THEN 
cmp CMPDAT ,DATRAT 
BLE 503258 

JSR PC.CKDATA 
LET CMPDAT ;:= 00 

CLR CMPDAT 

ENOIF 
503258: 

ENOIF 
503248; 
ENOIF 
503228: 
ENDIF 
503218; 
RTS PC 


SEQ 0118 


1200 


003424 
002344 


005072 


003424 


017274 
017274 
017276 
003414 
003416 
003530 
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4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 016664 
016664 013703 
016670 163703 
4221 016674 
016674 0057035 
016676 001015 
4222 016700 
16700 104456 
016702 000021 
016704 004246 
016706 005460 
4223 016710 
016710 012746 
016714 012746 
016720 010600 
016722 104414 
016724 062706 
4224 016730 
016730 000560 
016732 
4225 016732 
016732 020337 
016736 101417 
4226 016740 
016740 104456 
016742 000021 
016744 004246 
016746 005460 
4227 016750 
016750 013746 
016754 012746 
016760 012746 
016764 010600 
016766 104414 
016770 062706 
4228 016774 
016774 000536 
016776 
4229 016776 
016776 010337 
017002 005337 
4230 017006 005037 
4231 017012 005002 
4232 017014 
017014 013703 
4233 017020 
017020 013704 
4234 017024 
017024 105737 
017030 001401 
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SEQ 0119 
8 SUBROUTINE TO COMPARE DATA BETWEEN i AND WRITE BUFFERS 
; AND PRINT ERROR MESSAGE ON MISCOMPAR 
3 INPUTS: 
F OUTPUTS: 
: REGISTERS: R2, R3, R4. 
3 CALLS: GCMDA 
CKDATA:: LET R3 :* BRECNT - MSGPKT+MS.RFC ;COMPUTE REC LENGTH READ 
MOV BRFCNT RS 
Su8 MSGPKT>MS. RFC,.RS 
IF R3 EQ @O THEN sWHEN NO DATA —e as 
BNE 503268 
ERRHARD 17,WTVERM,OTAERM sPRINT ERROR AND EXIT 
TRAP CSERHRD 
. WORD 17 
-.WORD wWTVERM 
-WORD OTAERM 
PRINTB @DTAERS sCOMPARE ROUTINE 
MOV @OTAERS, -( SP) 
MOV @1,-(SP) 
MOV SP RO 
TRAP CSPNTB 
ADD @4,SP 
ELSE 
BR 503278 
503265: 
IF R3 HI BRECNT THEN sWHEN REC READ IS LONGER 
CMP R3,BRFCNT 
BLOS 503308 
ERRHRD 17,WTVERM,OTAERM 3: THAN EXPECTED, PRINT 
TRAP CSERHRD 
- WORD 17 
. WORD WTVERM 
‘ OTAERM 
PRINTB @DTAERS,CMDPKT+CP.CNT :AN ERROR MESSAGE 
MOV CMDPKT>+CP.CNT, -(SP) 
MOV @OTAERS, -( SP) 
MOV #2, -(SP) 
MOV SP RO 
TRAP CsPNTB 
ADO 06.,SP 
ELSE :AND EXIT ROUTINE 
ae 503318 
LET CKOCNT :*+ R3 - Ol 3 SAVE VERIFICATION LENGTH - 1. 
MOV R3,CKOCNT 
DEC CKOCNT 
CLR CKOFF sCLEAR @ OF BYTES IN ERROR COUNTER. 
CLR R2 sINIT BYTE COUNTER 
LET R3 := DATAWT sGET WRITE BUFFER ADDRESS. 
MOV DATAWT ,.R3 
LET R& ;:= DATARD sGET READ BUFFER ADDRESS 


IFB T1SWB NE 00 THEN 


MOV DATARD,R4 
sWHEN RUNNING tog >| SUB 12, 
TSTB T1SWB 
BEQ 503328 
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4238 


4260 


4261 
4262 


017032 


017216 
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000313 


023727 
002017 


105723 
105724 


017274 


003524 


000001 


017276 


003300 
003310 


017276 


é ten R RAM 


017274 


003444 
003446 
000013 
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2s: 


3$; 


SWAB (R3) 
ENDIF 


REPEAT 
IF R2 EQ CKDCNT THEN 


IFB SWBFLG NE 00 THEN 


IF @BITOO NOTSETIN CKOCNT THEN 


TST8 CR3)> 
TSTB CR4)> 
ENOIF 
ENDIF 
ENDIF 
CMPB (R3),(R4) 
BEQ 3% 
TST CKDOFF 
BNE as 
VF YCNTCRS) 


INC 
INC HROCNTC(RS) 
ERRHRD 17,WTVERM,DOTAERM 


LET CKDOFF :* CKDFF + @1 
—— (R4), TIMEL 


BI #177400, TIME1 
MOVB (R3), TIMES 
BIC #177400, TIMES 


IF CKOFF LT 011. THEN 


SEQ 0120 


sSWAP FIRST WORD OF WRT BFR 
sWHICH CONTAINS mao COUNT 


sREPEAT UNTIL a IS COMPARED: 
sIF THIS IS THE M BYTE THEN: 


R2,CKDCNT 
BNE 503348 

sIF BYTE SWAPPING IS ENABLED THEN: 
TST8 SWBFLG 


BEQ 50335$% 
sIF RECORD LENGTH IS ODD THEN: 
@BI TOO, CKDCNT 


BIT 

BNE 50336$ 
sLAST BYTE WILL BE IN 
; THE UPPER BYTE. 


50336$: 


;INC THE VERIFY —_ COUNTER. 
sINC THE "HARD ERROR 
sREPORT WRITE/VERIFY ERROR. 
TRAP CSERHRD 
«WORD 17 
-WORD WTVERM 


-WORD  OTAERM 
sINCREMENT @ OF BYTES IN ERROR. 
INC CKOFF 
sSAVE WAS DATA FOR TYPOUT. 


s;CLEAR GARBAGE. 
sSAVE SHOULD BE DATA FOR TYPOUT. 
sCLEAR GARBAGE. 
sIF ERROR BYTE COUNT IS LESS THAN 11: 
CMP CKOFF ,@11. 


8GE 503378 
PRINTX @DTAER2,R2,<B, TIMEL>,<B,TIME2> ;PRINT - p ACT DATA, 
L 


ENDIF 


TSTB (R3)> 
TSTB (R4)> 


-(SP) 
BISB OS lai 


CLR -( SP) 

BISB TIME1,(SP) 
MOV Ro, -C 

MOV @DTAER2, -(SP) 
MOV o4, -¢(S) 

MOV SP ,RO 

TRAP CSPNTX 

ADD #12,SP 


503373: 
sUPDATE WRITE BUFFER ADORESS. 
sUPDATE READ BUFFER ADDRESS. 


E10 
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4263 017220 105722 TSTB (R2)> sUPDATC SYTE COUNTER. 

4264 017222 UNTIL R2 GT CKDCNT sEND OF DATA COMPARE REPEAT LOOP. 
017222 020237 017274 CMP R2,CKDCNT 
017226 003702 BLE 503338 

4265 017230 LET CKDCNT := CKDCNT + #1 sCKOCNT EQUALS RECORD LENGTH. 
017230 005237 017274 CKOCNT 

4266 017234 IF CKDFF NE #0 THEN sIF COMPARE ERROR HAS OCCURED THEN: 
017234 005737 017276 Tst CKOFF 
017240 001414 BEQ 50340$% 

4267 017242 PRINTB @ TAERS,CKODFF ,CKDOCNT sPRINT @ OF BYTES IN ERROR. 
017242 013746 017274 MOV CKDCNT, -(SP) 
017246 013746 017276 MOV CKOFF , -( SP) 
017252 012746 005050 MOV ODTAERS, -(SP) 
017256 012746 0000035 MOV 03, -(SP) 
017262 010600 MOV SP ,RO 
017264 104414 TRAP CsPNTB 
017266 062706 000010 ADD #10,SP 

4268 017272 ENOIF 
017272 503408: 

4269 017272 ENOIF 
017272 S0331$: 

4270 017272 ENOIF 
017272 503278: 

py 44] 017272 000207 RTS PC sOTHERWISE, RETURN. 

4273 017274 000000 CKDCNT: .WORD 0 3® OF BYTES TO BE VERIFIED -1. 


4274 017276 000000 CKOFF: .WORD 0 3@ OF BYTES IN ERROR COUNTER. 
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016537 
000207 


105037 
042705 


062705 


026527 
001772 


016537 
000207 


003527 


002536 


002536 


003527 
177770 


177774 


177777 


002074 


177774 


002074 


SEQ 0122 
3 SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 
3 INPUTS: 
3 OuTPUTS: 
3 REGISTERS: 
3 CALLS: 
FIRSTU::LET DROPED :B= 00 3CLR UNIT DROPPED FLAG 
CLRB OROPED 
LET RS := 00 sCLR DEVICE ee a 
WHILE DEVTBL(RS) EQ @NINUSE DO ;WHILE DEVICES a eeeus IN USE: 
: 
UCVTBLCRS), @NINUSE 
BNE 50342$ 
LET RS := RS + G2 sPOINT TO NEXT DEVICE. 
ADD @2,R5 
ENDDO 
50341$ 
503423: 
IF DEVTBLC(RS) EQ SEND THEN :IF ALL UNITS HAVE BEEN DROPPED T 
CMP DEVTBLERS)- 06ND 
BNE 50343 
DOCLN 300 CLEAN CODE AND TERMINATE PASS. 
TRAP CSDOCLN 
ENDIF 
503435: 
LET LSLUN := DEVTBLCRS) 3SET UNIT @ IN “HEADER” FOR ERROR REPORT 
MOV DEVTBLC(RS).LSLUN 
RTS PC sRETURN WITH 1ST DEVICE IN RS. 
Fy SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 
3 INPUTS: 
3 OUTPUTS: 
3 REGISTERS: 
8 CALLS: 
NEXTU:: LET DROPED :B= 00 ;CLR UNIT DROPPED FLAG 
CLRB DROPED 
BIC @177770,R5 
EPEAT ;REPEAT UNTIL ay Bt DEVICE IS FOUND. 
LET RS := RS + 02 sUPDATE DEVICE TABLE POINTER. 
ADD o2,R5 
UNTIL DEVTBLC(RS) NE @NINUSE 
CMP DEVTBLC( RS), ONINUSE 
BEQ 50344$ 
LET LS$LUN := DEVTBLCRS) 3SET UNIT @ IN “HEADER” FOR ERROR REPORT 
MOV DEVTBLCRS).LSLUN 


RTS PC ;RETURN,. 
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020227 
001405 


012723 


105737 
001404 


105237 
004737 


104424 


000016 


177777 
000002 


017624 


003471 


003527 
015436 


002456 
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SUBROU 
INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 


DROPU:: LET RSSAVE := RS 


TINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 


MOVMSG, PRXST, LOG 


RS ,RSSAVE 


MOV 
LET FTLCNTCRS) :* FTILCNTCRS) + @1 ; INCREMENT THE FATAL ERROR COUNT. 


FTLCNTCRS) 


INC 
LET R& :* MSGPKT+MS.xXS3 CLR.BY #377 ;GET UDIAG oy CODE FROM XSTATS. 


LET R3 := MSGPKACRS) 
LET R2 := 00 
WHILE R2 NE @MSGCNT DO 


LET (R3)>+ :* @-1 
LET R2 :* R2 + 2 
ENDDO 


LET @TSOBCRS) := @GSCPK 
JSR PC,WSSR 


JSR_PC,MOVMSG 
IF R4 EQ @X3.RNY THEN 


ERRDF 16,RNYM,STAERM 


ELSE 


JSR PC, PRXST 
ENDIF 


IFB RECLOG NE #0 THEN 


LET DROPED :B= DROPED + 41 
JSR PC,LOG 
ENDIF 


DORPT 
DROPUA: IF PASCNT(RS) NE #0 TREN 


MSGPKT +MS .XS3,R4 
BIC @377,R4 
sADR OF THIS UNIT'S MSG PACKET 


MSGPKACRS),R3 
sCLR COUNTER. 
CLR Re 
;WHILE THERE ARE MORE LOCATIONS: 
503458: 
CMP R2, OMSGCNT 
BEQ 50346$ 
sINIT THE MSG os WITH ALL 1’S 


@-1,CR3)+ 
sUPDATE COUNTER. 
@2,R2 


BR 50345$ 


503463: 
: INITIATE A GET STATUS COMMAND. 

MOV @GSCPK , @TSDB( RS ) 
sWAIT A WHILE FOR SSR=1 


sMOVE MSG PACKET TO COMMON AREA. 
:IF WE HAVE A CAPSTAN RUNAWAY THEN: 
CMP R4,OX3.RNY 


BNE 50347$% 
sREPORT CAPSTAN RUNP JAY WITH TACH CNT. 
TRAP CSEROF 


«WORD 16 
«WORD RNYM 
-WORD STAERM 
sELSE-IF NOT A RUNNAWAY: 
BR 50350$ 


503473: 
sPRINT EXTENDED STATUS REGISTERS. 


503503: 
:IF THE RECORD HAS BEEN LOGGED THEN: 
TSTs8 RECLOG 
BEQ 50351$ 
;SET UNIT DROPPED FLAG. 
NC DROPED 


INCB 
:LOG DATA BYTES + RD/WR ERRORS. 


50351$: 
sPRINT PERFORMANCE REPORT 
TRAP CsORPT 


SEQ 0123 
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RAMER - READ AND DISPLAY SELECTED RAM SEQ 0124 
017532 005765 005260 TsT PASCNT(RS) 
017536 001402 BEQ 5035e2$ 

4343 017540 LET PASCNT(RS) :* PASCNTC(RS) - @1 
017540 005365 005260 DEC PASCNIT(RS) 
4344 017544 ENOIF 
017544 $03S2$: 
4345 017544 LET DROPN :* DEVTBL(RS) sSAVE @ OF UNIT TO BE DROPPED. 
017544 016537 002536 017622 MOV DEVTBLCRS),DROPN 
4346 017552 LET RO :* RS SHIFT -1 sRO=LOGICAL DEVICE NUMBER 
017552 010500 MOV RS ,RO 
017554 006200 ASR RO 
4347 017556 BOD’ RO sDROP THE UNIT: EXEC BGNOU-ENDOU CODE IF [DU = 0 
017556 104451 TRAP C$000uU 
4348 017560 IF DEVTBL(RS) NE @NINUSE THEN ;IF UNIT NOT DROPPED 
017560 026527 002536 177774 CMP DEVTBLC RS), ONINUSE 
017566 001410 BEQ 50353$ 
4349 017570 IFB IREC EQ 0 THEN IF RECOVERY IS ENABLED THEN: 
017570 105737 002210 TsT8 IREC 
017574 001005 BNE 503548 
4350 017576 000240 NOP 
4351 017600 000240 NoP 
4352 017602 000240 NoP 
4353 017604 LET STAFLG :B* STAFLG + @1 sSET START FLAG TO ENABLE REWIND, 
017604 105237 003534 INCB STAFLG 
4354 017610 ENOIF 
017610 50354$: 
4355 017610 ENDIF 
017610 50353$: 
4356 017610 DRORTN: LET DROPED :B= DROPED + ¢1 3SET UNIT DROPPED FLAG. 
017610 105237 003527 INCB DROPED 
4357 017614 LET RS :* RSSAVE 
017614 013705 003460 MOV RSSAVE .RS 
aaee 017620 000207 RTS Pc sRE TURN. 


4360 017622 000000 DROPN: .WORD 0O 3@ OF UNIT TO BE DROPPED 


GLOBAL AREAS 


RAMER 


4369 


READ AND DISPLAY SELECTED RAM 


017624 
017624 
017630 
017634 
017636 
017640 
017644 
017644 
017650 
017654 
017660 
017664 
017670 
017674 
017676 
017700 
017704 
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105737 
001430 


105737 
001023 


104450 
103025 


013704 
004737 


112337 
1123537 
111337 


002206 


003537 


003426 
007654 


004124 
004125 
004126 


- of oF oe oF 


PRXST:: 


CKHAE: : 


SEQ 0125 

SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 
PRINTX @GETSTM 

MOV @GETSTM, -( SP) 

MOV 1 ° -(SP) 

MOV SP RO 


TRAP gy 


ADD 04 ,SP 
PRINTX @STAERS,MSGPKT +MS.xXSO,MSGPKT+MS.XS1,MSGPKT+MS. +XS2 .MSGPKT oS -XS3 


RTS PC 


SUBROUTINE TO HALT AFTER EACH COMMAND. 


INPUTS: 

OUTPUTS: 

REGISTERS: R3, R4 
CALLS: 

IFB HAE NE @0 THEN 


IFB MISCFG EQ @O THEN 


MANUAL 
BNCOMPLETE CKHRTN 
LET R4 := CMDOWRD 


JSR PC,.GCMDA 
LET HALTM :B= (R3)>+ 


LET HALTM+1 :B= (R3)- 
LET HALTM+2 :B= (R3) 
GMANIL HALTM,TIME1,1, YES 


:IF HALT FLAG IS SET: 
TSTB HAE 
BEG 503558 


TSTB MISCFG 


BNE 50356$ 
;IS MANUAL INTERVENTION ALLOWED? 
TRAP CSMANI 
;8R IF NOT. 
Bcc CKHRTN 
;COMMAND WORD. 
CMOWRD .R4 


MOV 
sFETCH ADR OF CMD ASCII. 
sMOVE CMD ASCIT 

MOVB CR3)+,HALTM 


MOvVB CR3)> HSL TMel 
s INTO MESSAGE. 
CR3),HALTM+2 


MOVB 
sHALT - WAIT FOR AN OEPRATOR INPUT. 
TRAP C$GMAN 
BR 10000$ 
-WORD TIMEL 
«WORD TSCODE 
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017762 004124 -WORD HALTM 
017764 000001 . WORD 
017766 10000$ : 

4391 017766 ELSE 
017766 000402 BR 50357$ 
017770 50356$: 

4392 017770 LET MISCFG :B= 90 ; 

017770 105037 003537 CLRB MISCFG 

4393 017774 ENDIF 
017774 50357$: 

4394 017774 ENOIF 
017774 50355$: 

4395 017774 000207 CKHRTN: RTS PC RETURN 


GLOBAL AREAS 


017776 


MACRO 


012701 
012721 
012721 


012721 
005721 


012721 
012701 


010654 
011274 
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K10 


SUBROUTINE TO CREATE THE oon th ut. A WRITE TAPE MARK 
COMMAND. WILL EXECUTE COMMAND T 


- o e @ oe 
oa 
=~ 
w 


ea 
CALLS: SETUP, CMDAC, EXCUTE, GOWAIT 


WRITEM: : 
T R1 :* @CMDSEQ 


LET CR1)+ := OWTM 
LET (R1I)+ := O1 
LET (Rid+ :* O1 


TST CR1)+ 
LET (R1)+ := @END 


LET R1 := @CMDSEQ 


JSR PC, SETUP 
JSR PC, CMDAC 
JSR PC, EXCUTE 
JSR PC, GOWAIT 


MOV 
3; COMMAND 

MOV 
3;BRF 

MOV 
; ITERATIONS 

MOV 
sPATTERN 
3 TERMINATOR 

MOV 
:TOP OF BUFFER 

MOV 


sSET UP THE TABLE 

sLOAD THE ASCII 

sISSUE THE WTM COMMAND 

sWAIT FOR THE COMMAND TO FINISH 
sRETURN TO CALLER 


eCMDSEQ,R1 
OWTM,CR1)+ 
#1,(R1)+ 
#1,(R1)+ 


@END,CR1)+ 
@CMOSEG,R1 


SEQ 0127 
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RAMER - READ AND DISPLAY SELECTED RAM SEQ 0128 

4430 

4431 . TITLE MISCELLANEOUS SECTIONS 

aaak -SBTTL REPORT CODING SECTION 

4442 020052 BGNMOD 

4443 

4448 ee 

4445 3; THE REPORT CODING SECTION CONTAINS THE 

aast ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 

3 -_- 

4448 

4449 020052 BGNRPT 

ome 020052 LSRPT:; 

4456 020052 LET RSSAVE := RS sSAVE CURRENT DEVICE POINTER. 
020052 010537 003460 MOV RS ,RSSAVE 

4457 020056 004737 017300 JSR PC ,.FIRSTU sFINO THE FIRST UNIT. 

4458 020062 WHILE DEVTBL(RS) ONE #END DO sWHILE THERE ARE MORE DEVICES: 
020062 503608: 
020062 026527 002536 177777 CMP DEVTBLCRS), END 
020070 001562 BEQ 50361$ 

4459 020072 PRINTS @RPT1A,DEVTBLCRS),PASCNTCRS),RECCNTCRS) 
020072 016546 003330 MOV RECCNTCRS), -CSP) 
020076 016546 003260 MOV PASCNTCRS),.-CSP) 
020102 016546 002536 MOV DEVTBLCRS), -CSP) 
020106 012746 020714 MOV @RPT1A,-CSP) 
020112 012746 MOV 04,-CSP) 
020116 010600 MOV SP RO 
020120 104416 TRAP . $PNTS 
020122 062706 000012 ADD #12,SP 

4460 020126 PRINTS @RPT1B,WRBC+30(RS),WRBC+20(R5),WRBC+10(RS), WRBCCRS) 
020126 016546 2560 MOV WRBCCRS). -CSP) 
020132 016546 002570 MOV WRBC +10(R5), -CSP) 
020136 016546 002600 MOV WRBC +20(RS), -C SP) 
020142 016546 002610 MOV WRBC +30(R5).-CSP) 
020146 012746 020771 MOV @RPT1B,-CSP) 
020152 012746 5 MOV @s.- 
020156 010600 MOV SP ,RO 
020160 104416 TRAP . on 
020162 062706 000014 ADD 4,SP 

4461 020166 PRINTS #RPT1C,RRBC+30(RS),RRBC+20(R5),RRBC+10(RS), RRBC(RS) 
020166 016546 002620 MOV RRBCCRS),. -CSP) 
020172 016546 002630 MOV RRBC + 10¢ RS ».-CSP) 
020176 016546 002640 MOV RRBC+20(R5), -CSP) 
020202 016546 002650 MOV RRBC+30( RS), -CSP) 
020206 012746 021042 MOV @RPTIC,-CSP) 
020212 012746 000005 MOV #5, -¢ SP ) 
020216 010600 MOV SP,RO 
020220 104416 TRAP CSPNTS 
020222 062706 000014 ADD #14,SP 

4462 020226 PRINTS #RPT10,RFBC+30(RS),RFBC+20(R5S), RFBC+10(R5), RFBCCRS) 
020226 016546 002660 MOV RFBCCRS),-CSP) 
020232 016546 002670 MOV RFBC+10¢ RS) -CSP) 
020236 016546 002700 MOV RFBC+20(RS), -C SP) 
020242 016546 002710 MOV RFBC+30CRS),. -CSP) 
920246 012746 021113 MOV @RPT10, -CSP) 


020252 012746 000005 MOV #5, -¢ SP) 
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020446 


013705 


000167 
001206 


016546 
012746 
012746 
010600 
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003460 


003250 
021341 
000002 


BIRPT: 


SEQ 0129 


PRINTS ORPTIF ,WRRECC RS), RRRECC RS) ,RFRECCRS) 
MOV RFRECCRS), -CSP) 
MOV RRRECCRS),-CSP) 
MOV WRRECC( RS), -( SP) 
MOV ORPTIF ,-CSP) 
MOV 04, -C(SP) 
MOV SP ,RO 
TRAP CSPNTS 
ADD #12,SP 

PRINTS @RPT1G,WRUNRCRS ),RRUNRCRS), RFUNRCRS ) 
MOV RFUNRCRS), -( SP) 
MOV RRUNRCRS), -C SP) 
MOV WRUNRCRS), -C SP) 
MOV @RPT1G, -CSP) 
MOV 04,-C€ 
MOV RO 
TRAP CSPNTS 
ADD #12,SP 

IFB BADTSW NE #0 THEN ; 

TSTB BADTSW 


50362$ 


BEQ 
. . PC ,BTRPT ;GO PRINT BAD TAPE SPOTS WHEN ENABLED 


50362$: 
PRINTS #RPT1I,SCCNTCRS),HROCNTCRS),FTLCNTCRS), VF YCNTCRS) 
MOV VF YCNTCRS),. -CSP) 
MOV FTLCNTCRS),-CSP) 
MOV HROCNTCRS), -CSP) 
MOV SCCNTCRS),-CSP) 


MOV @5,-(SP) 
MOV SP ,RO 
CSPNTS 
ADD #14,SP 


JSR PC,NEXTU sFIND THE NEXT UNIT. 


ENDDO 
BR 50360$ 
50361$: 
LET RS := RSSAVE sRESTORE CURRENT DEVICE POINTER. 
MOV RSSAVE RS 
EXIT RPT 
-WORD J$JMP 
. WORD L10010-2-. 


SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 
WRITE RETRIES: CUMULATIVE COUNT 

BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE. 
COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 


PRINTS @#RPTIE,WRTYCTCRS) sPRINT GLOBAL WRITE RETRY COUNT 
MOV WRTYCTCRS),-CSP) 
MOV @RPTLIE, -CSP) 


MOV #2,-CSP) 
MOV SP ,RO 
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REPORT CODING SECTION SEQ 0130 
020464 104416 TRAP C*PNTS 
020466 062706 000006 ADD 6, SP 

4480 020472 LET BIPT :* BTADDR(RS) ;BTPT IS BOTH THE BAD TAPE SPOT COUNTER 
020472 016537 002550 003516 MOV BTADDR( RS), BTPT 
4481 020500 LET R3 := SBTPT SHIFT -1 sAND THE LOGGING INDEX 
020500 017703 163012 MOV aBTPT,RS 
020504 006203 ASR R3 
4482 020506 PRINTS @RPT1J,RS sPRINT @ OF BAD TAPE SPOTS 
020506 010346 MOV R3,-CSP) 
020510 012746 021371 MOV ORPT1J, -CSP) 
020514 012746 000002 MOV #2,-CSP) 
020520 010600 MOV SP ,RO 
020522 104416 TRAP CSPNTS 
020524 062706 000006 ADD #6 ,SP 
4483 020530 IF R3 NE #0 THEN sPRINT RECORD @ IF BAD SPOTS DETECTED 
020530 005703 TST R3 
020532 001457 BEQ 50363$ 
4484 020534 IF R3 HI #20. THEN : 
020534 020327 000024 CMP R3,920. 
020540 101402 BLOS 50364$ 
4485 020542 LET R3 := #20. 320 BAD SPOTS IS THE LIMIT 
020542 012703 000024 MOV #20. ,R3 
4486 020546 ENDIF 
020546 50364$: 
4487 020546 PRINTS @CRLF SP ; 
020546 012746 005300 MOV @CRLFSP, -CSP) 
020552 012746 000001 MOV #1,-C(SP) 
020556 010600 MOV SP,RO 
020560 104416 TRAP CSPNTS 
020562 062706 000004 ADD 04 ,SP 
4488 020566 LET R4 := BIPT + 2 ;FETCH A BAD SPOT ID 
020566 013704 003516 MOV BIPT,R4 
020572 062704 000002 ADD #2,R4 
4489 020576 LET R2 := 00 ;R2 = PRINT COUNT PER LINE: 10 MAX 
020576 005002 CLR R2 
4490 020600 . REPEAT i 
020600 50365$ 
4491 020600 PRINTS @RPT1IK,CR4) ;PRINT A BAD SPOT ID 
020600 011446 MOV CR4),-CSP) 
020602 012746 021451 MOV @RPTIK, -CSP) 
020606 012746 000002 MOV #2,-CSP) 
020612 010600 MOV SP ,RO 
020614 104416 TRAP CSPNTS 
020616 062706 000006 ADD #6,SP 
4492 020622 LET R2 :* R2 + @1 sCOUNT PRINTS 
020622 005202 INC Re 
4493 020624 LET R4 := RO + 02 = ;NEXT 
020624 062704 000002 ADD #2,R4 
4494 020630 IF R2 EQ #10. THEN ; 
020630 020227 000012 CMP R2,@10. 
020634 001014 BNE 50366$ 
4495 020636 PRINTS #CRLFSP :GO TO NEXT PRINT LINE PAST 10 PRINTS 
020636 012746 005300 MOV @CRLFSP, -CSP) 
020642 012746 000001 MOV #1,-CSP) 
020646 010600 MOV SP,RO 
020650 104416 TRAP CSPNTS 
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REPORT CODING SECTION SEQ O131 
44% 020656 LET R3 :* RB - 010. sADJUST BAD SPOT COUNT 
020656 162703 000012 SUB #10. .R3 
4497 020662 LET R2 :* R2 - 010. sADJUST PRINT COUNT 
020662 162702 000012 SUB #10. ,R2 
4498 020666 ENOIF ' 
020666 503665: 
4499 020666 UNTIL R2 EQ RB sLIMIT: @ OF BAD SPOTS 
020666 020203 cMe R2,R3 
020670 001343 BNE 503658 
4500 020672 ENDIF ‘ 
020672 503638: 
4501 020672 PRINTS o@CALF : 
020672 012746 005275 MOV @CRLF, -(SP) 
020676 012746 000001 MOV 01, -(SP) 
020702 010600 MOV SP RO 
020704 104416 TRAP CSPNTS 
020706 062706 000004 ADO 04,SP 
4502 020712 000207 RTS PC 
4503 
4515 .NLIST BEX 
4516 020714 045 116 045 RPTIA: .ASCIZ /SNSNSAUNIT SD18S3SAPASS: 8058S 3SARECORD: SDSEN/ 
4517 020771 045 101 102 RPTIB: .ASCIZ /SABYTES WRITTEN SD38A,8736A,6Z736A,6730N/ 
4518 021042 045 101 102 RPTIC: .ASCIZ /SABYTES READ REV S038A,8738A,6230A,82730N/ 
4519 021113 045 101 102 RPT1D: .ASCII /SABYTES READ FW 6D3SA.5256A,62360A.62350N/ 
4520 021163 045 123 062 .ASCIZ /8S238AWRTSSA4SARDRSS4SARDF SN/ 
4521 021217 045 101 122 RPTIF: .ASCIZ /SARECOVERABLE ERRORS s058S2s050S2u05SeN/ 
4522 021270 045 101 125 RPT1IG: .ASCIZ /SAUNRECOVERABLE ERRORS #058S28056S2s056N/ 
4523 021341 045 101 127 RPTIE: .ASCIZ /SAWRITE RETRIESSSESDS0N/ 
4524 021371 045 116 045 RPT1U: .ASCIZ /SNSD28A BAD SPOTS THIS PASS PRECEDING RECORD @:/ 
4525 021451 045 104 065 RPTIK: .ASCIZ /#D058S1/ 
4526 021460 045 101 123 RPTII: .ASCII “sASPEC CONDSS3SAHARDSS 3SAF ATAL SS SSACOMPARE SN” 
4527 021534 045 123 063 .ASCIZ /85380565 380585 380585 38050NBN/ 
4528 021571 045 116 045 TAPCAP: .ASCIZ /@NSATAPE IN CARTRIDGE MUST BE 600° IN LENGTH, sNSN/ 
4529 .LIST EX 
4530 .EVEN 
4531 021654 ENDKPT 
021654 L10010: 
haeel 021654 104425 TRAP CsRPT 
4535 sLOAD DEVICE PROTECTION TABLE 
4534 ;TABLE FOR SUPERVISOR 10 IDENTIFY THE P TBL FOR THE LOAD DEV 
sree ;THE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV 
4537 021656 BGNPROT 
021656 LSPROT:: 
4538 021656 000000 .WORD 0 :P-TBL OFFSET OF TSSR, THE TK25 CSR 
4539 021660 177777 .WORD -1 s°-TBL OFFSET OF MASS BUS UNIT @: -1 = NOT A MASS BUS DEV 
4540 021662 177777 .WORD -1 3P-TBL OFFSET OF ORIVE @: -1 = NONE, ONE DRIVE PER UNIBUS AD 


4541 021664 ENOPROT 


MISCELL ANE 


OuUS 


SECTIONS 


INITIALIZE SECTION 


4563 


4564 
4565 


4566 
4567 


4568 
4569 


0. 
4570 
0. 


4571 
4572 
4573 


4574 
4575 
4576 
4577 
4578 


i) 

021760 
021760 
021764 
021764 
021770 
021770 
021772 
021772 
021772 


021772 
021772 
021776 
022000 
022000 
022006 


032727 
001421 


104454 
00001 
004164 
000000 
012727 
000000 


013727 
000000 


105737 
001406 


012737 
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000024 
002116 
177772 
177756 


002204 
002204 


002560 


002205 


153624 


002314 


003440 


-SBTTL INITIALIZE SECTION 


tee 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 


: AT THE BEGINNING OF EACH PASS. 


BGNINIT 
LSINIT:: 


INITIO: IF OBITO!BITL SETIN OCMDPKT THEN 


ERRSF 1,CMDPKM 


DELAY 20. 


BR INIT10 
NOIF 


IFB CLRFLG NE #0 THEN 


CLRB CLRFLG 
LET R2 := 00 


WHILE R2 NE @CNTLEN DO 


LET WRBC(R2) :* 00 


LET R2 
ENODO 


ENDIF 


:* R2 + 02 


IFB RRANV NE #0 THEN 


LET RANB ;:= @RANBC 


LET RANS 


:* O@RANSC 


SEQ 0152 


IF CMD ‘ea NOT ON MODULO 4 BOUNORY: 


SBI TO!GIT1L, OCMOPKT 
BEQ 50367% 
sPRINT ERROR MSG, 
TRAP - wane 
- WORD 


. WORD CroPxn 
3GO TO SUPERVISOR, WAIT 2 SECONDS. 
MOV 20. ,(PC)>+ 
«WORD O 
MOV LSOLY,(PC)+ 
«WORD O 
DEC — 
BNE 
DEC "32cPC) 
BNE .-20 


503675: 


sIF CLR COUNTERS FLAG SET: 
TsT8 CLRFLG 
BEQ 503708 
sINIT CLR FLAG, 


CLR R2 


503718: 
CMP R2, OCNTLEN 
BEQ 503723 
sCLR ALL STATESTICN. COUNTERS. 
CLR WRBC(R2 ) 


ADO @2,R2 


BR 50371$ 
503723: 


503708: 
sIF RESET RANDOM VARIABLE FLAG IS SET THEN: 
TSTB RRANV 
BEQ 50373 
sRESET RANDOM BASE 2a. 
ORANGC ,RANB 


MOV 
sRESET RANDOM SAVE LOCATION, 


MISCELLANEOUS 
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4579 
4580 


4581 
4582 


4590 
4591 
4592 


4593 


4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 


4603 


022006 
022014 
022014 


022124 
022124 
022126 
022132 
022132 
022134 
022134 
022140 
022142 
022142 


SECTION 


012737 


012700 
104447 


103030 
105237 
105037 
012705 


012765 
162705 


005705 
001371 


013705 
006305 


162705 


010565 
006265 


005705 
001370 
012700 
104447 
103004 
105237 
105237 
104421 
010037 
005003 


105737 
001020 


012700 
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032561 


177774 
000002 


002012 


000034 


003534 
003535 


003540 


003535 


000035 


003442 


002536 


INIT15: 


INIT16: 


ENDIF 
READEF EF .START 


BNCOMPLE TE INIT1iS 

LET STAFLG :B* STAFLG + 01 

LET HERE :B= 00 

LET RS :* 0 

REPEAT 
LET DEVTBLC(RS) :* ONINUSE 
LET RS :* RS - 02 

UNTIL RS EQ 00 


LET RS :* LSUNIT SHIFT 1 


REPEAT 
LET RS :* RS - 02 


LET DEVTBLC(RS) :* RS SHIFT -1 


UNTIL RS EQ 00 


READEF O€F .PWR 


BNCOMPLETE INIT16 
LET STAFLG :B= STAFLG + @1 
LET PWRFLG :B= PWRFLG + @1 


RFLAGS OPFLAG 


LET R3 := 00 
IFB PWRFLG EQ 00 THEN 


READEF OFF .NEW 


MOV @RANSC ,RANS 


50373%: 
sREAD START COMMAND EVENT FLAG. 


MOV 

TRAP 
sBRANCH IF NOT whee 
sSET START COMMAND FLAG. 

STAF 


MOV 06,RS 
sINITIATE UNIT NUMBER TABLE 


50374$: 


s8Y STORING NOT IN USE IN EACH LOCATION. 
MOV ONINUSE ,DEVTBLCRS ) 


su8 @2,R5 


TST RS 

BNE 50374$ 
MOV LSUNIT,RS 
ASL RS 


sSTORE ALL UNIT 
503753: 

sNUMBERS IN DEVTBL. 
sus 


TST 


RS 

BNE 50375$ 

sHAS THERE BE A POWER as 
Vv 


TRAP 
cc 


;BRANCH IF NOT. 


8 
sIF SO - SET THE START FLAG. 
INCB STAFLG 
sIF SO - SET THE POWER FAIL FLAG. 
INCB PWRFLG 


sREAD AND STORE FLAGS a BY OPERATOR 


RAP 
mov 
s;CLEAR EVENT ~ 


LR R3 
sIF POWER FAIL HAS NOT OCCURRED THEN: 
TSTB PWRFELG 
50376$ 


BNE 
sUPDATE PASS COUNT WHEN 
MOV 


NCB LG 
sRESET THE TEST 3 ASCII SEMAPHORE 
CLRB HERE 


@2,R5 


MOV RS .DEVTBLCRS) 
ASR DEVTBLCRS) 


SEQ 0133 


EF .START,RO 
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4604 
4605 


4606 


4607 
4608 
4609 


4610 
4611 
4612 


4613 
4614 
4615 
4616 


4617 
4618 


4619 


4620 
4621 


4622 
4623 
4624 
4625 


4626 
4627 


022260 


104447 
103014 


105737 
001010 


012700 
104447 


103402 
005103 
000401 


005203 


000401 


005203 


004737 
005002 
026527 
001450 
005202 


010500 
006200 


104442 
103036 
011065 


012065 
162765 


011065 


012746 
016546 


Ell 


MACRO M1200 21-MAR-84 16:45 PAGE 98-2 


003534 


000037 


017300 


002536 


002466 


002456 
000002 


002476 


000340 
002516 


177777 


002456 


TRAP CSREFG 
IFCOND C5 THEN sSUPERVISOR IS IN NEW PASS 
Bcc 503778 
IFB STAFLG EQ 80 THEN sAND DIAG WAS NEITHER STARTED 
TsTs STAFLG 
504008 
READEF EF .RES sNOR 
MOV @€F .RES,RO 
TRAP CSREFG 
IFCOND CC THEN sRESTARTED 
Bcs 50401$ 
LET R3 := COMP R3 ;00 IT 
COM R3 
ELSE 
BR 504023 
504018: 
LET R3 :* RB + O1 sSET 1ST PASS sof a — 
ENDIF sRESTARTING 
504025: 
ELSE 
BR 50403$ 
504003: 
LET R3 :* RB + O1 ;SET 1ST PASS IF NEW PASS AND 
INC R3 
ENDIF : STARTING 
50403$: 
ENOIF 300 NOT UPDATE IT ON CONTINUE 
50377$: 
ENDIF :0R ON POWER FAIL 
503763: 
JSR PC,FIRSTU sINIT DEVICE POINTER. 
LET R2 := 00 sINIT DEVICE COUNTER. 
CLR Ro 
WHILE DEVTBLC(RS) NE @END DO 
504043: 
CMP DEVTBLC( RS), SEND 
BEQ 504053 
LET R2 := R2 + 1 
INC R2 
LET RO := RS SHIFT -1 
MOV R5S,RO 
ASR RO 
GPHARD RO,RO ;GET HARDWARE P TABLE FROM SUPER. 
TRAP CSGPHRD 
IFCOND CS THEN 
6cc 504063 
LET TSSRCRS) := (RO) sSAVE TSSR ADDRESS. 
MOV CRO), TSSRCRS) 
LET TSDBC(RS) := (RO)>+ - @2 ;SAVE TSDB ADDRESS. 
MOV CRO)+, TSOBCRS) 
sus 2, TSOBCRS) 
LET TSVCTCRS) := (RO) ;SAVE INTERRUPT VECTOR ADDRESS 


MOV (RO), TSVCTCRS) 
SETVEC TSVCT(RS), TS4INTCRS),@INTPRI ;SET UP INTERUPT PROCESSING CONDITIONS. 
@INTPRI, -(SP) 
TS4INTCRS), -CSP) 


MOV 
MOV 


SEQ 0134 


Fil 
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INITIALIZE SECTION SEQ 0135 
022264 016546 002476 MOV TSVCTCRS), -(SP) 
022270 012746 000003 MOV @3,-(SP) 
022274 104437 TRAP CS#SveECc 
022276 062706 000010 ADD #10,SP 

4628 022302 IF R3 NE 00 THEN sACSUAL PASSCOUNT UPDATE PER R3 
022302 005703 TsT R3 
022304 001410 BEQ 50407$% 
4629 022306 IF R3 LT @O0 THEN 
022306 005703 TsTt R3 
022310 002003 BGE 504108 
4630 022312 LET PASCNT(RS) := PASCNT(RS) + 01 
022312 005265 003260 INC PASCNT(RS) 
4631 022316 ELSE 
022316 000403 BR 504118 
022320 504108: 
4632 022320 LET PASCNT(RS) := @1 
022320 012765 000001 003260 MOV #1,PASCNT(RS) 
4633 022326 ENOIF 
022326 504115: 
4634 022326 ENOIF 
022326 50407$: 
4635 022326 ENOIF 
022326 50406 
4636 022326 LET RECCNT(RS) := 00 sCLEAR RECORD COUNT 
022326 005065 003330 CLR RECCNT(RS) 
4637 022332 004737 017346 JSR = PC,NEXTU 3:00 IT FOR ALL DEVICES. 
4638 022336 ENOODO 
. 022336 000724 BR 50404 $ 
“ 3° 022340 504055: 
4640 022340 IF R2 EQ 00 THEN sIF THERE ARE NO UNITS: 
022340 005702 TsT R2 
022342 001026 BNE 504128 
4641 022344 PRINTF @AUDRPM PRINT ALL UNITS DROPPED, 
022344 012746 004727 MOV @AUDRPM , -C SP) 
022350 012746 000001 MOv @1,-(SP) 
022354 010600 MOV SP ,RO 
022356 104417 TRAP CSPNTF 
022360 062706 000004 ADO @4,SP 
4642 022564 DELAY 20. GO TO SUPERVISOR, WAIT 2 SECONDS. 
022364 012727 000024 MOV @20.,.CPC)+ 
022370 000000 -WORD O 
022372 013727 002116 MOV LSOLY,CPC)+ 
022376 000000 -WORD 0 
022400 005367 177772 DEC -6(PC) 
022404 001375 BNE 74 
022406 005367 177756 SEC -22(PC) 
022412 001367 BNE --20 
4643 022414 BREAK sGO TO SUPERVISOR, CHECK TTY. 
022414 104422 TRAP CsBRK 
4644 022416 DOCLN 300 CLEAN CODE + ABORT PASS. 
022416 104444 TRAP CSOCLN 
4645 022420 ENOIF 
see 022420 504123: 
4647 022420 SETPRI @PRIOO sLOWER CPU PRIORITY TO 0 


022420 012700 000000 MOV 2PRIOO,RO 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


4648 


4649 
4650 


4651 
4652 


4653 
4654 


4655 


4656 


4657 
4658 
4659 


4662 


022622 


104441 
105737 
001145 
032737 


001141 
004737 


026527 
001533 


012737 
000402 
005237 


023727 
003106 


012775 
012727 
000000 
013727 
000000 


032775 
001420 


032775 
001001 


000456 


016546 
012746 
012746 


Gil 


MACRO M1200 21-MAR-84 16:45 PAGE 986-4 


000372 
002116 
177772 
177756 


000200 


000100 


005211 
000002 


002536 
023544 
000002 


003540 


177777 


003444 


000025 


002456 


002466 


002466 


SEQ 0136 
TRAP CSSPRI 
IFB IREC EQ #0 AND @ADR NOTSETIN OPFLAG THEN iwe.6 IS ENABLED 
BNE 50413 
BIT @ADR , OPFLAG 
BNE 50413% 
JSR PC,FIRSTU sAND AUTO-DROP NOT CALLED, THEN SET UP FOR FIRST UNI 
WHILE DEVTBLC(RS) NE @END 90 ;WHILE THERE — DEVICES: 
148: 
cmp DEVTALCRS), END 
BEQ 504158 
BEGIN COUNTER ;START 3.5 MINUTE COUNTER 
INCR TIME1L FROM @1 TO 025 By #1 
MOV #1, TIMEL 
BR 50417$ 
5042038: 
INC TIME1 
504178: 
CMP TIME1, 025 
BGT 50421$ 
LET STSOBC(RS) := OGSCPK ;AND GET UNITS STATUS 
MOV @GSCPK ,aTSOB( RS) 
DELAY 250. sWAIT 25 MSEC. 
MOV 250. .(PC)- 
wORD 0 


IF @TS.SSR SETIN @TSSRCRS) THEN 


BIT 
BEQ 


IF @TS.OFL NOTSETIN @TSSRC(RS) THEN 


LEAVE COUNTER 
ELSE 


BIT 


MOV LSOLY,(PC)- 
.WORD 
DEC “6CPC) 
DEC “2acc) 
-20 


@TS.SSR,@TSSRCRS ) 
50422$ 

@TS.OFL ,@TSSRCRS ) 
50423$% 


50416 


BNE 
sEXxIT — WHEN ry ty ON LINE 


50423% 
PRINTF @OFLINM,DEVTBLCRS) ;PRINT UNIT OFF LINE EVERY 10 SEC 


ENOIF 
ELSE 


PRINTF ONRDYM,DEVTBL(RS) 


5042438: 


BR 
504228: 


DEVTBLCRS), -(SP) 


MOV @OFLINM, -(SP) 
MOV SP .RO 

TRAP CSPNTF 

ADD 06,SP 

50425$% 

MOV DEVTBLCRS), -< SP) 
MOV ONROD YM, -( SP) 


MOV #2, -(SP) 


Hil 
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INITIALIZE SECTION SEQ 0137 
02. 010600 MOV RO 
0226 104417 TRAP sPOnTF 
022632 062706 000006 ADD 06,SP 

4663 022636 ENDIF 
022636 504255: 
4664 022636 INCR TIME2 FROM #1 TO 013 BY o1 
022636 012737 000001 003446 MOV 01, TIME2 
022644 000402 50426$ 
022646 504278: 
022646 005237 003446 INC TIME2 
022652 504263: 
022652 023727 003446 000013 CMP TIME? . 013 
022660 003016 BGT 50430 
4665 022662 DELAY 200. ;WAIT FOR UNIT TO BE SET ON- LINE 
022662 012727 000310 MOV 200. .(PC)+ 
022666 000000 .WORD 0 
022670 013727 002116 MOV LSOLY,(PC)+ 
022674 000000 .WORD 0 
022676 005367 177772 DEC -6(PC) 
022702 001375 BNE .-4 
022704 005367 177756 DEC -22¢PC) 
022710 001367 BNE .-20 
4666 022712 BREAK ;ALLOW TERMINAL INTERRUPT 
022712 104422 TRAP C$BRK 
4667 022714 ENDINC 
022714 000754 BR 50427$ 
022716 504308: 
4668 022716 ENDINC 
022716 000664 BR 208 
022720 504215: 
4669 022720 END COUNTER 
022720 50416 
4670 022720 IF TIMEL GT 025 THEN sIF OFF LINE FOR 3. 5° MINUTES 
022720 023727 003444 000025 CMP TIME1, 025 
022726 003404 BLE 504313 
4671 022730 004737 011726 JSR PC,MOVMSG :GET MESSAGE PACKET 
4672 022734 004737 012762 JSR PC, TCC1 ;PRINT ERROR AND DROP OFF LINE UNIT 
4673 022740 ENDIF 
022740 504318: 
4674 ;REPEAT UNTIL ON LINE OR TIMED OUT. 
4675 022740 004737 017346 JSR PC,NEXTU ;SET UP FOR NEXT UNIT. 
4676 022744 ENDDO 
022744 000641 BR 50414$ 
022746 504158: 
4677 022746 ENDIF 
022746 504138: 
4678 022746 IFB PWRFLG EQ 00 THEN 
022746 105737 003535 TSTB PWRFLG 
022752 001026 BNE 504323 
4679 022754 MEMORY DATAWT sREQUEST MEMORY FROM SUPER FOR RO/WR BUFFERS. 
022754 104431 TRAP C3MEM 
022756 010037 003414 MOV RO, DATAWT 
4680 022762 LET DATARD := DATAWT + ODATCNT ;SET RD BFR AD 
022762 013737 003414 003416 MOV DATAWT .DATARD 
022770 062737 010000 003416 ADD @DATCNT ,DATARC 
4681 022776 IF @DATAWT LT @DATCNT THEN ;WHEN NOT ENOUGH FREE MEMO AVAILABLE 


022776 027727 160412 010000 cmp QDATAWT , @DATCNT 


Tit 
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INITIALIZE SECTION SEQ 0138 
023004 002011 504338 
4682 023006 PRINTF @MEMOM s;WARN OPERATOR 
023006 012746 023054 MOV @MEMOM, -( SP) 
023012 012746 000001 MOV @1,-(SP) 
023016 010600 MOV SP RO 
023020 104417 TRAP CSPNTF 
023022 062706 000004 ADD @4,SP 
4683 023026 DOCLN ;AND ABORT PASS 
023026 104444 TRAP CSOCLN 
4684 023030 ENOIF s;O0IAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO 
023030 50433$: 
4685 023030 ENDIF 
023030 50432$: 
4686 
4687 023030 LET CHGFLG :B= 00 3CLR CHANGE CMD SEQ TBL FLAG. 
023030 105037 002217 CLRB CHGFLG 
4688 023034 LET R3 :* OENDFLG 
023034 012703 003534 MOV GENDFLG,RS 
4689 023040 004737 011656 JSR PC,CLRERR ;CLEAR ALL FLAGS. 
4690 023044 LET PWRFLG :B= 00 ;CLEAR THE POWER FAIL FLAG. 
oon 023044 105037 003535 CLRB PWRFLG 
4692 023050 EXIT INIT 
023050 104432 TRAP CSExIT 
023052 000104 «WORD 1L10012-. 
4704 023054 045 101 106 MEMOM: .ASCII /#AFREE MEMO TOO SMALL FOR RD-WR BFRSSN/ 
023057 122 105 105 
023062 040 115 105 
023065 115 117 040 
023070 124 117 117 
023073 040 123 115 
023076 101 114 114 
023101 040 106 117 
023104 122 040 122 
023107 104 055 127 
023112 122 040 102 
023115 106 122 123 
023120 045 116 
4705 023122 045 101 122 .ASCIZ /#ARE-LOAD IN LARGER MEMOSN/ 
023125 105 055 114 
023130 117 101 104 
023133 040 111 116 
023136 040 114 101 
023141 122 107 105 
023144 122 040 115 
023147 105 115 117 
023152 045 116 000 
4706 EVEN 
4707 
4708 023156 ENDINIT 
023156 L10012: 


023156 104411 TRAP CsINIT 


Jil 
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AUTO DROP SECTION 


4710 
4711 


023160 
023160 


023160 
023164 


023326 


004737 
026527 
001525 
105037 
012746 
012746 
012746 
012746 
104437 
062706 
017502 


012700 
104436 


1057357 
001423 


016537 


010500 
006200 


104451 
000452 
012775 
004737 
032775 


002536 177777 


002536 017622 


002324 002456 
011672 


000200 002466 


SEQ 0139 
.SBTTL AUTO DROP SECTION 
yee 
sSECTION EXECUTED AFTER THE INIT CODE WHEN “ADR” FLAG IS SET BY OPERATOR 
;SECTION CHEKS FOR A VALID INTERFACE LOCATION. OROPS UNIT IF NO RESPONSE 
3FROM INTERFACE 
ge 
BGNAUTO 
LSAUTO:: 
JSR PC,FIRSTU 3F IND FIRST UNIT 
WHILE DEVTBL(RS) NE #END DO 3 
50434$: 
CMP DEVTBLC( RS). END 
BEQ 50435$ 
LET TRAPD4 :B= #0 : 
CLRB TRAPD4 
SETVEC 04, @TRAP4, OPRIO7 :SET VECTOR 4 
MOV @PRIO7, -(SP) 
MOV @TRAP4, -(SP) 
MOV @4,-(SP) 
MOV @3,-(SP) 
TRAP CsSvECc 
ADD #10,SP 
LET R2 := @TSSRC(RS) sADDRESS TK25 INTERFACE 
MOV @TSSRCRS) RR] 
CLRVEC 04 ;CLEAR VECTOR AT 4 
MOV 04,RO 
TRAP cscvec 
IFB TRAPD4 NE #0 THEN 
TSTB TRAPD4 
BEQ 50436$ 
LET FTLCNTCRS) := FTILCNTCRS) «+ #1 
INC FTLCNTCRS) 
PRINTF @AUTODM, TSSRC(RS) ;PRINT ERROR 
MOV TSSRCRS),-CSP) 
MOV @AUTOOM, -( SP) 
MOV 2, -CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6,SP 
LET DROPN := DEVTBLCRS) sSAVE @ A Bei TO BE DROPPED. 
attr fe DROPN 
LET RO := RS SHIFT -1 sRO-LOGICAL ._oe — 
ASR RO 
BODY RO ;DROP THE UNIT: EXEC BGNDU-ENDDOU CODE IF IDU = 0 
TRAP Cs000U 
ELSE 
BR 50437$ 
504363: 
LET @TSDOBCRS) := #GSCPK 3SEND GET STATUS COMMAND 
MOV @GSCPK , @TSDBC( RS) 
JSR PC,WSSR WAIT 
IF @TS.SSR SETIN @TSSRCRS) THEN 
BIT #TS.SSR,ATSSRCRS) 


MISCELLANEOUS SECTIONS 
AUTO DROP SECTION 


4736 


4737 
4738 


4739 
4740 


0. 
4741 


0. 
4742 

0. 
4743 


4744 
4745 


4746 
4747 
4748 


4749 
4750 


4751 
4752 


L) 
4753 
0. 


023515 
023520 


001423 


032775 
001416 


Kil 
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BEQ 
IF @TS.OFL SETIN @TSSRCRS) THEN 
000100 002466 oa 
LET FTLCNTCRS) := FTLCNTCRS) + #1 
003320 INC 
PRINTF #OFLINM,OEVTBLC(RS) 
002536 
005211 
000002 
000006 
017532 JSR PC,DROPUA 
ENDIF 
504415: 
ELSE 
BR 
504403: 
LET FTLCNTCRS) := FTLCNTCRS) «+ @1 
003320 INC 
PRINTF @NRDYM,DEVTBLC(RS) 
002536 
023544 
000002 
000006 
017532 JSR PC,DROPUA 
ENDIF 
50442$: 
ENDIF 
50437$: 
017346 JSR PC,NEXTU 
ENDDO 
BR 
50435$: 
ENDAUTO 
L10013: 
101 102 AUTODM: .ASCII /s#ABUS TRAP AT s06sN/ 
123 040 
122 101 
040 101 
040 045 
066 045 
et ant -ASCIZ /#AINTERFACE BAD OR NOT SET TO ABOVE ADSN/ 
106 101 
105 040 
101 104 
117 122 
116 117 


50440$ 
@TS.OFL,@TSSRCRS) 
50441$ 


FTLCNTCRS) 


MOV yo by Stee F 


50442$ 

FTLCNTCRS) 

MOV DEVTBLC(RS),. 
MOV @NRDYM, -C SP 
MOV 2,-CSP) 
MOV SP ,RO 

TRAP CSPNTF 

ADD 6, 

50434$ 


TRAP CsAUTO 


SEQ 0140 


-(SP) 
) 


-(SP) 
) 


Lil 
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AUTO DROP SECTION 


4754 


023571 


023574 
023574 
023600 


os 

124 117 
101 102 
126 105 
101 104 
116 000 
045 101 
116 111 
040 045 
061 045 
040 116 
124 040 
104 131 
116 


105237 003536 
000002 


NROYM: 


TRAP4:: 


-ASCIZ /#AUNIT #D18A NOT RDYSN/ 


EVEN 

DEVICE BUS TRAP HANDLER 

OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 
0: NO TRAP 

LET TRAPD4 :B= TRAPD4 + @1 


RTI 


INCB 


TRAPD4 


SEQ 0141 
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4767 
4768 
4769 


CODING SECTION 


104412 


017300 


002536 
011672 
002476 
017346 


177777 


Mil 


-SBTTL CLEANUP CODING SECTION 


gee 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE END OF EACH PASS. 


8 
LSCLEAN: : 


L10014: 


JSR 


WHILE DEVTBL(RS) NE #END DO 


JSR PC 
CLRVEC 


JSR 
ENDDO 


EXIT 


-EVEN 
ENDCLN 


PC,.FIRSTU 


»WSSR 


PC ,NEXTU 


CLN 


TSVCTCRS) 


sFIND FIRST UNIT. 


BEQ 
;WAIT FOR UNIT READY OR TIMEOUT, 


50443$: 


CMP 


SEQ 0142 


DEVTBL(RS), #END 
50444$ 


;RELEASE INTERRUPT VECTORS FOR ALL DEV 


sF IND NEXT UNIT. 


504443: 


MOV 
TRAP 


50443$ 


TRAP 
. WORD 


TRAP 


TSVCT(RS),RO 
CsCveEc 


CsExIT 
L10014 wm, 


CSCLEAN 


Nii 
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DROP UNIT SECTION SEQ 0143 
4806 .SBTTL OROP UNIT SECTION 
4807 
4808 see 
4809 ; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
4810 ; TO NO LONGER BE TESTED. THAT CODE SHALL BE EXECUTED WHEN D9DU 
ree | sMACRO IS CALLED WHILE IDU FLAG IS NOT SET BY OPERATOR 
1 3-- 
4813 
4814 023644 
0813 023644 L$OU:: 
4821 023644 LET RS := RO SHIFT 1 3RS = LOGICAL DEVICE NUMBER xX 2. 
023644 010005 MOV RO,RS 
023646 006305 ASL RS 
4822 023650 LET DEVTBLCRS) := @#NINUSE ;SET NOT IN USE FLAG FOR THE DEVICE. 
023650 012765 177774 002536 MOV @NINUSE ,DEVTBLC RS) 
4823 023656 PRINTF #@DROPDM,DOROPN sPRINT DROP DEVICE MESSAGE 
023656 013746 017622 MOV DROPN, -( SP) 
023662 012746 004700 MOV #DROPODM, -( SP) i 
023666 012746 000002 MOV #2,-CSP) 
023672 010600 MOV SP ,RO 
023674 104417 TRAP CSPNTF 
023676 062706 000006 ADD $6,SP 
4824 023702 EXIT OU 
023702 000167 .WORD J$JMP 
023704 000000 . WORD L10015-2-. 
4836 .EVEN 
4837 
4838 023706 E 
023706 L10015: 


023706 104453 TRAP C$0u 


B12 
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ADD UNIT SECTION SEQ 0144 

4641 -SBTTL ADD UNIT SECTION 

asas 

gee 

4844 1 THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

4845 + TO BE (A) TESTED FOR THE FIRST TIME, OR (8) RESUMED IN TESTING. IF 

anak s “EF .AUNIT” Is SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 

Bee 

4848 

4849 023710 
023710 LSAU:: 

4850 

4856 

4857 023710 LET RS :* RO SHIFT 1 sRS * LOGICAL DEVICE NUMBER Xx 2. 

023710 010005 MOV RO,RS 
023712 006305 ASL RS 

48586 023714 LET DEVTBLCRS) :* RO sSTORE UNIT @ IN DEVICE /ABLE. 

023714 010065 002536 Mov RO ,DEVTBLC RS) 

4859 023720 GPHARD RO,RO sGET HARDWARE P TABLE FROM SUPER. 
023720 104442 TRAP C$GPHRO 

4860 023722 LET TSSRC(RS) :* (RO) sSAVE TSSR ADDRESS. 

023722 011065 002466 MOV (RO), TSSRCRS) 

4861 0235726 LET TSOBCRS) :* (RO)+ - 02 sSAVE TSOB ADDRESS. 

023726 012065 002456 MOV CRO)+, TSDBCRS) 
023732 162765 000002 002456 SUB @2, TSOBCRS) 

4862 023740 LET TSVCTCRS) :* (RO) sSAVE INTERRUPT VECTOR ADORESS. 

023740 011065 002476 MOV (RO), TSVCTCRS) 

4863 023744 SETVEC TSVCTCRS), TS4INTC(RS), OINTPRI sSET UP INTERUPT PROCESSING CONDITIONS. 
023744 012746 000340 MOV @INTPRI, -(SP) 
023750 016546 002516 MOV TS@INT(RS), -(SP) 
023754 016546 002476 MOV TSVCTCRS), -(SP) 
023760 012746 0000035 MOV 3, -(SP) 
023764 104437 TRAP CsSvec 
023766 706 000010 @10,SP 

4864 023772 LET INTFLGC(RS) :* 00 ;CLEAR INTERRUPT FLAGS. 

sees 023772 005065 003476 CLR INTFLGCRS) 

4866 023776 EXIT AU 
023776 000167 «WORD = JSJMP 
024000 000000 «WORD 110016-2-. 

4878 

4879 -EVEN 

4880 

4881 024002 ENDAU 
024002 110016: 

024002 104452 TRAP CsAau 

4882 

4883 024004 ENDMOD 


Cle 
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ADD UNIT SECTION 


4925 


4926 
4927 


0. 
4928 


024004 


024004 
924004 


024004 
024004 
024010 
024010 


024014 
024014 
024014 


024016 


105037 
105037 


104402 


012702 


003521 
003520 


177777 


002526 


. TITLE HARDWARE TESTS 


. SBTTL 


gee 
s TEST TO EXECUTE ALL TK25 FUNCTIONS. 


Tl:: 


Ti.1: 


TEST 1: BASIC FUNCTIONS. 


BGNMOD 
BGNTST 


LET RANDOM :B+ 00 
LET EXPBOT :B- 00 


BGNSUB 


LET R2 :* OBFSEQO 


JSR PC .BFSEQ 
JSR PC ,EXALL 
JSR PC ,.FIRSTU 


WHILE DEVTBL(RS) NE @END DO 


LET R2 := MSGPKACRS) 
LET R2 :* R2 + #12 


SEQ 0145 


sCLR THE RANDOM OPERATIONS FLAG. 


CLRB RANDOM 
sCLR EXPECT BOT FLAG. 
CLRB ExXPBOT 


sSUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 


TRAP Cs6Su8 

sADR OF CMD SEQ. 

MOV BF SEQO ,R2 
sSET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 
sF IND THE FIRST UNIT. 
sWHILE THERE ARE MORE DEVICES: 

504458: 

CMP DEVTBLCRS), END 

BEQ 504468 
s+GET MSG PACKET AOR, 

v MSGPKACRS ) ,R2 


sGET XSTAT2 ADR, 


ADO #12,R2 
LET TS4CLC(RS) :* (R2)> CLR.BY 0177400 ;STORE CODE LEVEL FROM OTR BYTE, 


IF PASCNT(RS) EQ @1 THEN 


MOV (R2), TS4CLCRS) 


BIC #177400, TS4CL(RS) 
sIF THIS IS PASS 1 THEN: 

CMP PASCNT(RS), @1 
504473 


BNE 
PRINTF @CODELM,DEVTBL(RS), TS4CL( RS) ;PRINT THE TK25 MICROCODE LEVEL. 


ENDIF 


JSR 
ENODO 


PC,.NEXTU 


ENOSUB 


MOV TS4CLC( RS), -C SP) 
MOV DEVTBL(RS), -( SP) 
MOV @CODELM, -( SP) 
MOV SP RO 
TRAP CSPNTF 
ADO #10,SP 

50447$: 

3F IND NEXT UNIT. 
BR 50445$ 
504463: 


HARDWARE 
TEST IL: 


4929 
4930 


4931 
4932 
4933 
4934 
4935 


4936 


TEST 
BASI 


024136 
024156 


024224 
024224 
024224 


024226 
024226 
024232 
024236 
024242 
024242 
024242 


024244 
024244 
024244 


110020; 
104403 


T1.2: 


024714 
024616 
006744 


003534 


104402 


012702 024726 


024616 
006744 


L10022: 


71.4: 


025020 
024616 
006744 
L10023: 


T1.5: 
104402 


012702 025072 


024616 
006744 


L10024; 


71.6: 


custo” 21-MAR -64 16:45 PAGE 104 1 


BGNSUB 


LET R2 :* @BFSEQ1 
JSR PC ,BFSEQ 
JSR PC .EXALL 
LET STAFLG :B= 00 


ENDSUB 
BGNSUB 


LET R2 :* OBFSEQ2 


JSR PC .BFSEQ 
JSR PC ,EXALL 
ENOSUB 


BGNSUB 


:* OBFSEQS 


JSR PC .BFSEG 
JSR PC ,EXALL 


BGNSUB 


LET R2 :* OBFSEQ4 


JSR PC,.BFSEQ 
JSR PC ,EXALL 


Die 


TRAP CsESuB 
sSUBTEST 2 - REWIND. 
TRAP Cs8SU8 
sADR OF CMD SEQ. 
MOV BF SEQ1 .R2 
sSET UP CMD SEQ. 
VEXECUTE CMD SEQ ON ALL DEVICES. 
;CLEAR START FLAG 
CLRB STAFLG 
TRAP CsESUB 
sSUBTEST 3 - WRITE/VERIFY. 
TRAP Cs6sus8 
sADR OF CMD SEQ. 
BF SEG2 ,R2 
1SET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 
TRAP CsESUB 
sSUBTEST 4 - WRITE TAPE MARK, ERASE. 
TRAP CsB8SU8 
sADR OF CMD SEQ. 
Plans: BF SEQS,R2 
3SET UP CMD SE 
sEXECUTE CMD sea ON ALL DEVICES. 
TRAP CsESUB 
sSUBTEST 5S - SPACE FILES. 
TRAP Cs68SU8 
sADR OF CMD SEQ. 
BF SEQ4 ,R2 
sSET UP CMD SEQ 
VEXECUTE CMD SEQ ON ALL DEVICES. 
TRAP CsESus 
:SUBTEST 6 - SPACE RECORDS. 
TRAP Cs8SU6 


SEQ 0146 


HARDWARE TESTS 


TEST 1: 
4961 


BASIC 


024322 
024322 


024324 
024324 
024324 


024326 
024326 
024332 
024336 
024342 
024342 
024342 


024344 
024344 
024344 


024346 
024346 
024352 
024356 
024362 
024362 
024362 


024364 
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104402 


012702 


104402 


012702 
004737 
004737 


104403 


104402 


012702 


104402 


012702 


025134 
024616 
006744 


025206 
024616 
006744 


025240 
024616 
006744 


025272 
024616 
006744 


025324 
024616 
006744 


L10025: 


T1.7: 


L10026: 


10027: 


T1.9: 


L10030: 


71.10: 


L10031: 


LET R2 
JS& 
JSR 
ENOSUB 


BGNSUB 


LET R2 
JSR 
JSR 
ENOSUB 


BGNSUB 


LET R2 
JSR 


JSR 
ENOSUB 


BGNSUB 


LET R2 


JSR 
JSR 
ENOSUB 


-2 


:* @BFSEQS 


PC BF SEQ 
PC ,EXALL 


:* OBFSEQ6 


PC .BFSEQ 
PC ,EXALL 


:* OBFSEQ7 


PC .BFSEQ 
PC, ,EXALL 


:= @BFSEQS 


PC ,.BFSEQ 
PC ,EXALL 


:* OBFSEQ9 


PC ,BFSEQ 
PC ,EXALL 


Ele 


sADR OF CMD SEQ. 
MOV BF SEQS ,R2 


sSET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CsESuUB 
sSUBTEST 7 - WRITE RETRY. 


TRAP Cs6SUB 


sADR OF CMD SEQ. 
MOV BF SEQ6 ,R2 
sSET UP CMD 


SEQ. 
SEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CsESUB 
sSUBTEST 8 - READ REV RETRY. 

TRAP Cs68SUB 
sADR OF CMD SEQ. 

@BF SEQ7 ,R2 
sSET UP CMD SEQ 
;EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CsESUB 
;SUBTEST 9 - READ FWO RETRY. 

TRAP CsB6SUB 


sADR OF CMD SEQ. 
OBF SEQ8 .R2 
3SET UP CMD S 


EQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CsESUB 
sSUBTEST 10- CLEAN. 

TRAP CsB8SU8 
sADR OF CMD SEQ. 

MOV OBF SEQ9,R2 

sSET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CsESUB 
sSUBTEST 11 - WIV SWAPPED DATA BYTES. 


SEQ 0147 


HARDWARE TESTS 


TEST IL: 


BASIC 
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112737 
004737 


105037 


104403 


013702 
062702 


020237 
001402 
000342 


000773 


105237 


104402 
012737 
004737 


012737 
004737 


112737 


012737 
004737 


012737 
004737 


012737 
004737 


012737 
004737 


105037 


025346 
024616 
006 744 


000001 
006744 


003524 


003414 
000012 


003414 


003530 


003524 


003426 


002322 


003524 
002322 


002322 


003426 


002322 


Ti.11: 


L10032;: 


T1.12: 


LET R2 :* @BFSE10 
JSR PC .BFSEQ 
JSR PC,EXALL 
LET SWBFLG :B= #1 


JSR PC ,EXALL 
LET SWBFLG :B= 00 


ENOSUB 


LET R2 :* DATAWT + 


WHILE R2 NE DATAWT 


SWAB -(R2) 
ENOODO 


Fie 


#10. 


00 


LET TISWB :B= TISWB + 01 


BGNSUB 


LET CMOWRD := @RDR 


JSR PC, VFEXC 
LET CMDPKT+CP.CNT 


JSR PC, VFEXC 
LET SWBFLG :B= ¢1 


LET CMDPKT+CP.CNT : 


JSR PC, VFEXC 
LET CMOPKT+CP.CNT 


JSR PC, VFEXC 
LET CMOWRD := ORDF 


JSR PC, VFEXC 


LET CMDPKT+CP.CNT : 


JSR PC, VFEXC 
LET SWBFLG :B= 00 


LET CMDPKT+CP.CNT 


:* #12 


:* 012 


:* #12 


ADD 
sUNTIL 10 BYTES HAVE BEEN SWAPPED. 
50450$% 


TRAP =s-_-« C $8SUB 
sADR OF CMD SEQ. 
eBFSE10,R2 
;SET UP CMD SEQ. 
|}WRITE/VERIFY RECORDS 1 AND 2. 
sENABLE BYTE SWAPPING. 
MOVB 01, SWBFLG 
;WRITE/VERIFY RECORDS 3 AND 4. 
:DISABLE BYTE SWAPPING. 
CLRB SWBFLG 
TRAP = CSE SUB 
;INIT WRITE BUFFER POINTER. 
MOV DATAWT .R2 
@10. ,R2 
CMP séRR2., DATAWT 
BEQ 50451$ 
;SWAP DATA BYTES IN WRITE BUFFER. 


BR 50450$% 


504518: 
3SET T1 SWAP ele FLAG FOR “CKDATA” SUBR 


NCB T1SWB 
sSUBTEST 12 - READ SWAPPED DATA BYTES. 
TRAP CsB8Sus 
:CMD IS READ REV. 


MOV ROR , CMOWRD 
sVERIFY OOD LENGTH SWAP (RECORD 4). 
sCHANGE BYTE oer TO 10. 


Vv 
;VERIFY EVEN LENGTH SWAP (RECORD 3). 
sENABLE BYTE SWAPPING. 
MOVB @1,SWBFLG 
sCHANGE BYTE COUNT TO 9. 


MOV #11, CMOPKT+CP.CNT 


;VERIFY ODD LENGTH SWAP (RECORD 2). 
sCHANGE BYTE COUNT TO 10. 


MOV 
sVERIFY EVEN LENGTH SWAP (RECORD a2, 
:CMD IS READ FwD. 
OROF , CMOWRD 


MOV 
sVERIFY EVEN LENGTH SWAP (RECORD 1). 
sCHANGE BYTE COUNT TO 9. 


#12,CMOPKT-CP.CNT 


MOV 11, CMOPKT+-CP.CNT 


sVERIFY ODD LENGTH SWAP (RECORD 2}, 
;DISABLE BYTE SWAPPING. 

CLRB aaris 
sCHANGE BYTE COUNT TO 10 


#12,CMDPKT+CP.CNT 


SEQ 0148 


TEST I: 


5027 
5028 


TESTS 
BASIC 


024612 
024612 
024614 


Gle 
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012737 
004737 


012737 
004737 


104403 


105037 


104432 
000554 


000012 
016254 


000011 
016254 


003530 


002322 


002322 


L10033: 


JSR PC, VFEXC 

LET CMDPKT+CP.CNT := @11 
JSR PC, VFEXC 

ENDSUB 


LET TISWB :B= 00 


ExIT TST 


MOV 
sVERIFY EVEN LENGTH SWAP (RECORD 


sCHANGE BYTE wg” ae 9. 
sVERIFY ODD LENGTH SWAP 


#12, CMOPKT+CP.CNT 


3). 


#11,CMOPKT+CP.CNT 


CRECORD 


TRAP 


;CLEAR T1 SWAP BYTES FLAG 


CLRB 


T1SwB 


TRAP 
. WORD 


4) 


CsESUB 


CSExIT 
L10017-. 


SEQ 0149 


HARDWARE TESTS 


TEST I: 


BASIC 


024712 


024714 
024716 
024720 
024722 
024724 


024726 
024730 
024732 
024734 


H12 
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012701 003542 


021227 
001402 


012221 
000773 


012711 
000207 


177777 


177777 


SUBROUTINE TO MOVE A COMMAND SEQUENCE scavenca. SEQUENCE TABLE. 


é 
3 INPUTS R2 = FWA OF COMMAND SE 
ry putbuTs: 
; REGISTERS: 
8 CALLS: 
BFSEQ: LET R1 := eCMDSEG sINIT SEQ TABLE ADDRESS. 
MOV @CMDSEQ,.R1 
WHILE (R2) NE @END DO sWHILE THERE ARE MORE COMMANDS: 
504528: 
cme (R2), 0END 
BEG 50453$ 
LET (R1)> := (R2)> sMOVE COMMANDOS TO SEQ TABLE. 
MOV CR2)+,CR1)- 
ENODDO 
BR 50452 
504538: 
LET (R1) := @END sSTORE END OF SEQUENCE CODE. 
MOV @END,.CR1) 
RTS PC. ;RETURN. 
Hy BASIC FUNCTION COMMAND SEQUENCE 
BFSEQO: .WwORD SCH 3SET CHAR. 200. (1) 
200 
1 
0 
ie sORIVE INIT. (2) 
1 
0 
SCH ;SET CHAR. 20 (3) 
20 
1 
0 
es 3;GET STATUS. (4) 
1 
0 
SCH :SET CHAR. 40. (5) 
40 
1 
i?) 
WORD END 
BFSEQ1: — sREWIND TWICE. (6) 
2 
1?) 
. WORD END 
BFSEQ2: sWRITE/VERIFY PAT 1. (7) 


WTV 
DATCNT 


SEQ 0150 


Iie 
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TEST 1: BASIC FUNCTIONS. SEQ 0151 
5087 024736 104105 WTV sWTV PAT 2. (8) 
5088 024740 010000 DATCNT 
5089 024742 000001 
5090 024744 900002 2 
5091 024746 104105 WTV sWTV PAT 3. (9) 
5092 024750 010000 DATCNT 
5093 024752 000001 
5094 024754 000005 3 
SO9S 024756 104105 WTV sWTV PAT 4, €10) 
5096 024760 010000 DATCNT 
5097 024762 000001 
5098 024764 000004 4 
5099 024766 104105 WTv sWTV PAT S. (11) 
5100 024770 010000 DATCNT 
5101 024772 000001 
$102 024774 000005 5 
5103 024776 104105 WTV s;WTV PAT 6. (12) 
5104 025000 010000 DATCNT 
5105 025002 000001 
5106 025004 000006 6 
5107 025006 104105 WTV sWTV PAT O. (13) 
5108 025010 010000 DATCNT 
5109 025012 000001 1 
5110 025014 
str 025016 177777 WORD END 
5113 025020 100011 BFSEQ3: WTM ;sWRITE TAPE MARK. (14) 
5114 025022 000001 1 
5115 025024 000001 1 
5116 025026 000000 0 
5117 025030 104005 WRT ;WRITE 10 RECORDS. (15) 
5118 025032 010000 DATCNT 
5119 025034 000010 10 
5120 025036 000001 1 
5121 025040 100411 ERS sERASE 10 TIMES. (16) 
5122 025042 000001 1 
5123 025044 000010 10 
5124 025046 000000 0 
5125 025050 100011 WIM sWRITE TAPE MARK. (17) 
5126 025052 000001 1 
5127 025054 000001 1 
5128 025056 000000 0 
5129 025060 101011 WTR ;WTM RETRY (18) 
5130 025062 000001 1 
5131 025064 000001 1 
5132 025066 
Bias 025070 177777 WORD END 
5135 025072 105410 BF SEQ4: SFR ;SPACE 2 FILES REV. (19) 
5136 0250/4 000002 2 
5137 025076 000001 1 
5138 025100 ° 
5139 025102 105010 SFF ;SPACE 2 FILES FwD. (20) 
5140 025104 2 2 
5141 025106 000001 1 
5142 025110 000000 ie) 
5143 025112 105410 SFR sSPACE 2 FILES REV. (21) 


HARDWARE TESTS 


TEST li: 


5144 
5145 


BASIC 


025114 
025116 
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FUNCTIONS. 


BFSEQS: 


BF SEQ6: 


BF SEQ7: 


D Rone gowe 
nn 


i +e 3 ee Zz 


orrD Mone nvnone 
& 6 


Jle 


sSPACE 2 FILES Fwd. 


sREWIND. 


sSPACE 7 RECORDS FWD. 


sSPACE 7 RECORDS REV. 


sSPACE 7 RECORDS FwD. 


sSPACE 7 RECORDS REV. 


sREWIND. 


s;WRITE. 


sWRITE RETRY. 


sREAD REV. 


;READ NEXT REV. 


sREAD NEXT FWD. 


(22) 


(23) 


(24) 


(25) 


(26) 


(27) 


(28) 


(29) 


(30) 


(31) 


(32) 


(33) 


SEQ 0152 


HARDWARE 
TEST i: 


S201 
S202 
$203 


TESTS 
BASIC 


025370 
025370 
025370 
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FUNCTIONS. 


177777 


177777 
101012 


000000 
177777 


104401 


BF SEQS: 


BFSEQ9: 


BFSE10: 


L10017: 


. WORD 


. WORD 
. WORD 


. WORD 
EVEN 


ENOTST 


Kile 


sREAD FWD. 


sREAD PREVIOUS FwO. 


sREAD PREVIOUS REV. 


;CLEAN. 


;REWIND 


sEND OF SEQUENCE. 


(34) 


(35) 


(36) 


(37) 


(38) 


sWRITE/VERIFY EVEN LENGTH. 


;WRITE/VERIFY ODD LENGTH. 


TRAP 


SEQ 0153 


Lie 
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025532 


112737 
105037 


012702 
005302 


010237 
005137 
004737 
105737 
001404 
004737 


105037 


012721 
012721 


012702 
005102 


010221 
012721 


020127 
002012 


063737 
013702 
042702 
004772 
000763 


012711 
004737 


104005 
010000 
177740 


177777 
006744 


003442 


-SBTTL TEST 2: DATA RELIABILITY. 


zee 
; TEST TO CHECK THE DATA RELIABILITY OF 


gece 
BGNTST 
T2:: 


LET RANDOM :B= #1 
LET EXPBOT :B= 00 
LET R2 := @DATCNT - 01 


LET LENMSK := COMP R2 


JSR PC,SETCH 
IFB STAFLG NE #0 THEN 


JSR PC,SETRW 

LET STAFLG :B= #0 
ENDIF 
LET (R1)+ 
LET (R1)-+ 
LET R2 :* 


:= OWRT 
:= @DATCNT 
COMP @RNOPSC 


LET (R1)+ 

LET (R1)-+ 

REPEAT 
WHILE R1 LT #SEQEND DO 


:* Re 
:= @RANP 


THE TK2S. 


sSET THE RANDOM OPERATIONS FLAG. 


MOVB #1,RANDOM 
sCLEAR EXPECT BOT FLAG. 

CLRB EXPBOT 
;SET UP THE RECORD LENGTH MASK, 

MOV @OATCNT »R2 


DEC 
sALLOW MAXIMUM BUFFER. 
MOV R2,LENMSK 


COM LENMSK 
:CMD 1 = SET CHARACTERISTIC. 
VIF STARTING THEN: 


TsTs STAFLG 
BEQ 50454$ 
;CMD2=REWIND 
;CLR START FLAG. 
CLRB STAFLG 
50454$: 
;CMD3 = WRITE. 
MOV @WRT,CR1)> 
;SET BRF TO MAX FOR PATTERN GENERATION. 
MOV @DATCNT,.CR1)>+ 
MOV @RNOPSC ,.R2 
COM R2 
331 OPERATIONS. 
MOV R2,CR1L)> 
;RANDOM PATTERN. 
MOV ORANP ,CR1)> 


sREPEAT TO EOT: 
50455$: 

sFILL SEQ TBL WITH RANDOM CMDS. 
504568: 


CMP —s—« R21, @SEQEND 
BGE 504578 
LET RANS := RANS «+ RANB 
ADD RANB ,RANS 
LET R2 := RANS CLR.BY 0177741 ;R2 = RANDOM @ (0 - 36). 
MOV RANS ,R2 
BIC #177741,R2] 
week PC, @RANCMD(R2) ;SET UP A RANDOM CMD + BRF. 
aes 50456$ 
LET (R1) := @END :STORE END OF SEQUENCE “CODE Tw TABLE. 
JSR PC, EXALL :GO EXECUTE ALL CHOS IN SEQUENCE TABLE. 


LET R1 :* #CMDSEQ 


sINIT CMD SEQ TBL POINTER, 


Mle 


HARDWARE TESTS MACRO M1200 21-MAR-84 16:45 PAGE 106-1 
DATA RELIABILITY. 


TEST 2: 


5270 


012701 


004737 


012737 
005137 


013737 


012711 
004737 


105037 
112737 


012701 
004737 


012711 
004737 


104432 
000174 


003542 


003531 


027640 


025712 


177740 
003546 


003546 


177777 
006744 


003531 
000001 


003542 
006724 


177777 
006744 


003546 


003556 


003523 


UNTIL R2 NE #0 


LET 


5836 


JSR 
LET 
LET 
LET 


JSR 
LET 


LET 
LET 


JSR 
LET 


JSR 


EXIT 


ALLEOT :B= ALLEOT + #1 


PC, TSWEOT 


PC ,RANRD 
CMDSEQ+4 := COMP #RNOPSC 


CMDSEQ+14 
(R1) 


:* CMDSEQ+4 
:* #END 


PC,EXALL 
ALLEOT :B= 00 


RPTFLG :B= #1 
R1 := @CMDSEG 


PC, SETRW 
(R11) := #€ND 


PC ,EXALL 
TST 


MOV 
sREPEAT UNTIL EOT IS REACHED 
TsT R2 


BEQ 
sFLAG ALL UNITS @ EOT 
INCB 


@CMOSEG ,R1 


50455$ 
ALLEOT 


sWRITE ONE RECORD BEYOND EOT ON ALL UNITS 
3SO THAT SHORTER READ STOP DISTANCE 
sSHALL POSITION HEAD IN CLEAN IRG GAP 
sREAD REV THAT EXTRA REC TO RE-POSITION THE TAPE 
;SET UP READ REV/FWO CMDS, 
3@ OF RECORDS FOR READ REV. 


MOV 


@RNOPSC , CMDSEQ+4 
CMDSEQ+4 


COM 
3@ OF RECORDS FOR READ FORWARD. 


CMOSEQ+4 ,CMDSEQ+14 


MOV 
sSTORE END OF var ary CODE IN SEG TABLE. 


@END,(R1) 


3GO EXECUTE READ REV/FWD OF LAST N RECORDS. 
;CLEAR ALL UNITS @ EOT FLAG 


ALLEOT 


CLRB 
sREQUEST PERFORMANCE REPORT DURING REWIND. 


MOVB 
sINIT SEQ TBL POINTER, 
MOV 


#1,RPTFLG 
@CMDSEG,R1 


sSTORE REWIND IN SEQ TBL, 


;STORE END IN SEQ TBL, 


END, CR1) 


MOV 
s;EXECUTE REWINC CMD ON ALL UNITS 


TRAP 
. WORD 


CSExIT 
L10034-. 


SEQ 0155 


Nie 


MACRO M1200 21-MAR-64 16:45 PAGE 107 


HARDWARE TESTS 
TEST 2: DATA RELIABILITY. SEQ 0156 


5294 ; ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
aoe $ THE DATA RELIABILITY TEST. 
5297 025766 RANCHO: RANWR s;WRITE. 
5298 025654 025766 RANWR sWRITE 
5299 025656 025766 RANWR ;WRITE 
5300 025766 RANWR s;WRITE 
5301 025662 025766 RANWR s;WRITE 
5302 025664 025766 RANWR sWRITE 
5303 025666 025766 RANWR sWRITE 
5304 025670 025766 RANWR ;WRITE, 
5305 025672 025712 RANRD sREAD 
5306 025674 025712 RANROD sREAD. 
5307 025676 025712 RANRD sREAD 
5308 025700 025712 RANRD s;READ 
$309 025702 025712 RANRD READ. 
5310 025704 025712 RANRD sREAD 
5311 025706 025712 RANRD sREAD 
5312 025710 025712 RANRD ;READ 
5313 
5314 
5315 
5316 
5317 
5318 ; SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE. 
5319 ; INPUTS: 
5320 ; OUTPUTS: 
5321 ; REGISTERS: R2 
ety ; CALLS: 
5324 025712 RANRD: LET (R1)+ := @SRR +STORE SPACE RECORD REVERSE CMD 
025712 012721 104410 MOV @SRR,CR1)+ 
5325 025716 LET RANB := RANB + RANS 
025716 063737 003442 003440 ADD RANS ,RANB 
5326 025724 LET R2 := RANB CLR.BY #RNOPSC 
025724 013702 003440 MOV RANB ,R2 
025730 042702 177740 BIC @RNOPSC .R2 
5327 025734 LET (R1)+ := R2 ;SET REPOSITION COUNT 
025734 010221 MOV R2,(R1)+ 
5328 025736 LET (R1)+ := #1 :D0 ONCE 
025736 012721 000001 MOV #1,(R1)+ 
5329 025742 LET (R1)+ := @RANP ;RANDOM PATTERN. 
025742 012721 000007 MOV @RANP ,CR1)+ 
5330 025746 LET (R1)+ := #RDF ;STORE READ FWD CMD. 
025746 012721 104001 MOV @ROF ,CR1)+ 
5331 025752 LET (R1)+ := @DATCNT ;SET BRF TO MAX TO READ RANDOM LENGTHS. 
025752 012721 010000- MOV @DATCNT,CR1)+ 
5332 025756 LET (R1)+ := R2 ;SET RANDOM @ OF OPERATIONS. 
025756 010221 MOV R2,(R1)+ 
5333 025760 LET (R1)+ := #RANP ;RANDOM PATTERN. 
025760 012721 000007 MOV @RANP ,CR1)+ 
5334 025764 000207 RTS PC 


B13 
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TEST 2: DATA RELIABILITY. SEQ 0157 
5336 : SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE. 
5337 3 INPUTS: 
5338 ; OuTPUTS: 
5339 : REGISTERS: 
Boor ' CALLS: 
1 
5342 025766 RANWR: LET (R1)>+ :* OWRT sSTORE WRITE CMD. 

025766 012721 104005 MOV T,CR1)> 
5343 025772 004737 026012 JSR PC ,RANW sSTORE BREF, © OF OPERATIONS. "PATTERN. 
5344 025776 000207 RTS PC 
5345 
5346 
5347 
3349 
5350 ry SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
5351 : INPUTS: 

5352 3 OUTPUTS: 

5353 3 REGISTERS: 

— F CALLS: 

5356 026000 RANWV: LET (R1)>+ :* OWTV sSTORE WRITE/VERIFY CMD. 

026000 012721 104105 MOV OwTVv.CR1)> 
5357 026004 004737 026012 JSR PC,RANW sSTORE BREF, @ OF OPERATIONS, PATTERN. 
5358 026010 000207 RTS PC 
5359 
5360 
5361 
5362 
5363 
5364 3 SUBROUTINE TO STORE BRF, @ OF OPERATIONS, PATTERN IN COMMAND 
5365 3 SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 

5366 3 INPUTS: 

5367 3 OuTPUTS: 

5368 : REGISTERS: R2 

344 ; CALLS: 

5371 026012 RANW: LET (R1)>+ := ODATCNT ;SET BRF TO MAX FOR PATTERN GENERATION. 

026012 012721 010000 MOV @DATCNT CRI) 
5372 sRANDOM BRF WILL BE GENERATED FOR EACH RECORD. 
5373 026016 LET RANB := RANB + RANS 

026016 063737 003442 003440 ADD RANS ,RANB 
5374 026024 LET R2 := RANB CLR.BY ORNOPSC 

026024 013702 003440 MOV RANB ,R 

026030 042702 177740 BIC pre For R2 
5375 026034 LET (Ri)> :* R2 3SET RANDOM © OF OPERATIONS. 

026034 010221 MOV R2,CR1L)> 
5376 026036 LET (R1)+ :* @RANP 3RANDOM PATTERN. 

026036 012721 000007 MOV @RANP ,CR1)-> 
7 026042 000207 RTS PC ;RETURN. 

5379 .EVEN 
5380 
5381 026044 ENOTST 
026044 10034; 
026044 104401 TRAP CserTst 


HARDWARE 
TEST 83: 
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WRITE AND READ STREAMING TEST. Ss€Q O158 
.SBTTL TEST 3: WRITE AND READ STREAMING TEST. 
] 
: 
i THIS TEST STREAM WRITES 9000 RECORDS OF 4096 BYTES FACH. 
; DATA IS THEN VERIFIED BY PERFORMING A REWIND OPERATION, FOLLOWED 
’ BY A READ FORWARD OPERATON FOR THE 9000 RECORDS. 
4 
i 
026046 BGNTST 
026046 T3:: 
026046 IFB HERE EQ @O THEN 
026046 105737 003340 TsTs HERE 
026052 001012 BNE 504608 
026054 PRINTF @TAPCAP 
026054 012746 021571 MOV @TAPCAP, -( SP) 
026060 012746 000001 MOV @1,-(SP) 
026064 010600 MOV SP RO 
026066 104417 TRAP CSPNTF 
026070 062706 000004 ADD 04 ,SP 
026074 LET HERE :B8+ HERE + O1 
026074 105237 003340 INCB HERE 
026100 ENOIF 
026100 504608 
026100 LET RANDOM :B6= 00 sCLEAR THE RANDOM OPERATIONS FLAG. 
026100 105037 003521 CLRB RANOOM 
026104 LET EXPBOT :B= 00 sCLEAR THE EXPECT BOT FLAG. 
026104 105037 003520 CLRB ExXPBOT 
026110 004737 006700 JSR PC, SETCH 3SET CHARACTERISTICS. 
026114 004737 006724 JSR PC, SETRW sSET REWIND COMMANC IN BUFFER. 
026120 LET STAFLG :B= 00 sCLEAR THE START FLAG. 
026120 105037 003534 CLRB STAFLG 
026124 LET (R1) := SEND sPLACE END FLAG IN SEQUENCE TABLE. 
026124 012711 177777 MOV @END,CR1) 
026130 004737 006744 JSR PC, EXALL sREWIND ALL UNITS. 
026134 004737 017300 JSR PC, FIRSTU sF INO THE FIRST UNIT TO TEST (CUUT) 
Pr rITITiItiitiiritiirirtiritriiiiiiritiiitiiiiitttT Tit erit ty yyy) 
sWRITE AND READ EACH UNIT IN TURN BEFORE GOING ON TO THE NEXT. 
3 SSESSSSNSEASSSSSSESHSSEHSSSSSSESSSSHSSSSSSSSHESSEHHASSEEHEEEEESEEEEEBE 
026140 WHILE DEVTBL(RS) NE ®END DO sWHILE THERE ARE MORE DEVICES: 
026140 5046138: 
026140 026527 002536 177777 CMP DEVTBLC RS), OEND 
026146 001544 BEQ 504623 
026150 LET BIPT := BTADOR(RS) sCLEAR BAD SPOT COUNTER 
026150 016537 002550 003516 MOV BTADDR(RS),BIPT 
026156 LET @BTPT := 00 sSTART FROM BOT 
026156 005077 155334 CLR SBTPT 
026162 LET STREAM :B= 0255. 3SET FLAG - WE'RE GOING TO STREAM 
026162 112737 000377 003532 MOVB 0255. ,STREAM 
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TEST 3: WRITE AND READ STREAMING TEST. SEC 015” 
5421 026170 LET R1 :* @CMDSEG sSETUP SEQUENCE TABLE ADDRESS 
026170 012701 003542 MOV @CMDSEQ,R1 
5422 026174 LET CR1i)d> :* OWRT sWRITE COMMAND 
026174 012721 104005 MOV OWRT CRI D> 
5423 026200 LET (R1)+ :* @DATCNT ;4096-BYTE RECORD LENGTH. 
026200 012721 010000 MOV @DATCNT,CR1)+ 
5424 026204 LET (R1)+ :* #9000. sWRITE 9000 RECORDS. 
026204 012721 021450 MOV #9000. ,(R1)+ 
5425 026210 LET (R1)> :* 05 sGENERATE AND WRITE PATTERN 5S. 
026210 012721 000005 MOV @5,CR1)> 
5426 026214 LET (R1) :* @END sSET END OF SEQUENCE TABLE. 
ener 026214 O12711 177777 MOV @END,CR1) 
5428 026220 LET R1 :* @CMDSEG sSEQ. TABLE ADDRESS FOR SUBR. ‘SETUP’. 
026220 012701 003542 MOV @CMDSEQ,R1 
5429 026224 004737 007706 JSR PC, SETUP sSETUP THE COMMAND TABLE 
5430 026230 LET RSSAVE := RS sSAVE RS, EH? 
543) 026230 010537 003460 MOV RS .RSSAVE 
5432 026234 WHILE NCNT LT NCNT1 DO sWHILE MORE RECORDS — BE WRITTEN: 
026234 504638 
026234 023737 003420 003422 CMP ss NCNT.NCNT1 
sess 026242 002022 BGE 504645 
5434 026244 004737 007600 JSR PC, CMDAC sSAVE ASCII COMMAND FOR ERROR MESSAGE 
5435 026250 004737 010654 JSR PC, EXCUTE s ISSUE COMMAND TO UNIT. 
5436 026254 004737 011274 JSR PC, GOWALT :GO WAIT FOR DONE TO SET 
5437 026260 IF DEVTBL(RS) EQ ONINUSE THEN 
026260 026527 002536 177774 cmp DEVTBLC RS), ONINUSE 
026266 001005 BNE 50465$ 
5438 026270 LET NCNT :* NCNT1 - @1 
026270 013737 003422 003420 MOV NCNT1,NCNT 
026276 005337 003420 DEC NCNT 
5439 026302 ENOIF 
026302 504653: 
5440 026302 LET NCNT :* NCNT + 01 sUPDATE THE RECORD COUNT 
026302 005237 003420 INC NCNT 
5441 026306 ENODO sEND OF RECORD ‘D0’ LOOP 
026306 000752 BR 50463$ 
026310 50464: 
5442 026310 LET R1 :* @CMDOSEOQ sRESET R1 TO TOP OF TABLE 
026310 012701 003542 MOV @CMOSEQ,R1 
S443 026314 004737 006724 JSR PC, SETRW s ISSUE REWIND 
5444 026320 LET (R1) :* @€ND sPLACE END FLAG IN SEQUENCE TABLE 
026320 012711 177777 MOV @END,CR1) 
5445 026324 LET -(SP) :=* LSLUN sSAVE THE CURRENT LUN 
026324 013746 002074 MOV LSLUN, -CSP) 
5446 026330 004737 006744 JSR PC EXALL s00 REWIND, NOW 
5447 026334 LET RS :* RSSAVE sRESTORE RS 
026334 013705 003460 MOV RSSAVE RS 
5448 026340 LET LSLUN ;:* (SP)-> sRESTORE THE CURRENT LUN 
026340 012637 002074 MOV (SP)+,L$LUN 
5449 026344 IF DEVTBL(RS) NE ONINUSE THEN 
026344 026527 002536 177774 CMP DEVTBLCRS), ONINUSE 
026352 001431 BEQ 504668 
5450 026354 LET R1 := @CMDSEQ + TOP OF COMMAND TABLE 


026354 012701 003542 MOV @CMDSEQ,R1 
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TEST 3: 
5451 
5452 
5453 
5454 
5455 
5456 


WRITE AND READ 


012721 
012721 
012721 
012721 
012721 


012701 
004737 


112737 


010537 
004737 


013705 


005037 
105037 
105037 
004737 


000630 


105037 
105037 
112737 


012701 
004737 


012711 
004737 
104432 
026520 000002 


104401 


STREAMING TEST. 


104001 
010000 
021450 
000005 
177777 


003542 
007706 


000001 


003460 
016142 


003460 


003522 


003420 
003522 


003520 
017346 


003532 
003531 
000001 


003542 
006724 


177777 
006744 


0035235 


LET (R1i)>+ :* ORDF 
LET (R1)+ :* ODATCNT 
LET (R1)+ := 09000. 
LET CRL)+ :* OS 

LET (R1)+ :* OEND 
LET R1 := OCMDSEQ 


JSR PC, SETUP 
LET VFYFLG :B= 1 


LET RSSAVE := RS 


JSR PC, VF YDAT 
LET RS := RSSAVE 


ENDIF 

LET NCNT := 00 
LET VFYFLG :B= #0 
LET EXPBOT :B= 00 
JSR PC, 
ENODO 


NEXTU 


LET STREAM :B= 00 
LET ALLEOT :B= 00 
LET RPTFLG :B= @1 
LET R1 := @CMDSEG 


JSR PC, SETRW 
LET (R1) :* SEND 


JSR PC, EXALL 
EXIT TsT 


EVEN 


ENOTST 
L10035;: 


sREAD FORWARD ae 
IV 

14096 BYTE RECORDS 

19000 ITERATIONS 


ORDF ,CR1)+ 
@DATCNT ,CR1)> 


MOV #9000. ,CR1d-+ 
sREAD PATTERN NUMBER 5S 
@5.(R1L)> 
s TABLE TERMINATOR 
@END,.CR1)> 


MOV 
:TOP OF TABLE, AGAIN! 
MOV 
3SET UP THE COMMAND TABLE 
sALLOW THE DATA VERIFY 
vB @1,VFYFLG 
sSAVE RS 
MOV RS ,RSSAVE 
:GO OFF AND CHECK READ OPERATIONS 
sRESTORE RS 
MOV RSSAVE .RS 
668: 


@CMDSEQ,R1 


504 
;CLEAR RECORD COUNT 

CLR NCNT 
;CLEAR VERIFY FLAG 

a VF YFLG 
sCLEAR EXPECT BOT FLAG. 

CLRB ExPBOT 
;GET NEXT UNIT TO TEST CuUT). 
sEND OF UUT LOOP 

BR 

50462 

CLEAR STREAMING FLAG FOR OTHER TESTS. 

CLRB STREAM 
sRESET THE UNITS ees STATUS 

L 


Cc ALLEOT 
sREQUEST A REPORT 

MOVB @1,RPTFLG 
;TOP OF TABLE 


MOV @CMDSEQ,R1 
sSTORE THE REWIND COMMAND 
3; TERMINATOR 

MOV @END,CR1) 
sREWIND AND REPORT STATUS FOR ALL UNITS 


sEXIT TEST 


. 504618 


TRAP CSEXIT 

-WORD 1L10035-. 
sJUST IN CASE. 

TRAP CsETST 


SEQ 0160 
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5502 


112737 
105037 
012702 
005302 


010237 
005137 
004 737 
904737 


012711 
004737 


012701 


005702 
001762 


105237 
000240 
000240 
000240 
004737 


105037 
004737 


012711 
004737 


025766 


177777 
006744 


003542 


003531 


027640 


003531 
006724 


177777 
006744 


-SBTTL TEST 4; WRITE COMPATABILITY/WRITE UTILITY. 


gee 
; TEST TO WRITE RECORDS FROM BOT TO EOT. 
3-- 


T4:: 


BGNTST 


LET 
LET 
LET 


LET 


JSR 
JSR 
LET 


RANDOM :B= @1 
EXPBOT :B= 00 
R2 :* @DATCNT - @1 


LENMSK := COMP R2 


PC,SETCH 
PC, SETRW 
STAFLG :B= #0 


REPEAT 
WHILE R1 LT @SEQEND DO 


JSR PC,RANWR 


ENDDO 


LET (RL) :* MEND 


JSR PC,EXALL 
LET Ri := @CMDSEG 


UNTIL R2 NE 00 


LET ALLEOT :B= ALLEOT + #1 


NOP 
NOP 


NOP 
JSR 


LET 


JSR 
LET 


JSR 


PC, TSWEOT 


ALLEOT :B= 00 


PC,SETRW 
(R11) :* @END 


PC,EXALL 


;SET THE RANDOM OPERATIONS FLAG. 
MOVB @1,RANDOM 
s;CLEAR EXPECT BOT FLAG. 
CLRB ExPBOT 
;SET UP THE RECORD LENGTH MASK. 
MOV + ein »R2 


DEC 
sALLOW MAXIMUM BUFFER. 
MOV rt LENMSK 


COM NMSK 
sCMD 1 = SET CHARACTERISTIC. 
;CMD2=REWIND 
;CLEAR START FLAG 

CLRB STAFLG 
sREPEAT TO EOT. 


50467$: 
;WHILE THERE IS MORE ROOM IN SEQ TABLE: 
50470 


$: 
CMP R1, @SEQEND 


BGE 50471$% 
sSTORE A WRITE CMD IN SEQUENCE TABLE. 


BR 50470$ 
50471$: 
-STORE END OF SEQUENCE CODE IN TABLE. 


MOV END, CR1) 
sEXECUTE ALL CMDS IN SEQ TBL ON UNITS. 
sINIT SEQ TBL POINTER, 

eCMDSEG,R1 


MOV 
sREPEAT UNTIL wa * — 
50467$ 


BEQ 
;SET ALL UNITS @ EOT FLAG 
INCB ALLEOT 


sWRITE ONE RECORD BEYOND EOT ON ALL UNITS 


350 THAT SHORTER READ STOP DISTANCE 
;SHALL POSITION HEAD IN CLEAN IRG GAP 


SEQ 0161 


sREAD REV THAT EXTRA REC TO RE-POSITION TAPE 


;CLEAR ALL UNITS @ EOT FLAG 
CLRB ALLEOT 
sSTORE REWIND IN SEQ TBL, 
sSTORE ENO IN SEQ TBL, 
END, (R11) 


MOV 
sEXECUTE REWIND CMD ON ALL UNITS 
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TEST 4; WRITE COMPATABILITY/WRITE UTILITY. SEQ 0162 
5519 
5520 026662 ExIT TST 
026662 104432 TRAP CSExIT 
026664 000002 -WORD L10036-. 
$521 
5522 .EVEN 
5523 
5524 026666 ENDTST 
026666 L10036: 
026666 104401 TRAP CSsETst 
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TEST 4; WRITE COMPATABILITY/WRITE UTILITY 


026670 112737 
geese Maze? 
026710 004737 
026714 105037 
026720 012721 
026724 012721 
026730 012721 
026734 012721 


026740 012711 
026744 004737 


026750 105037 


026754 012701 
026760 004737 


026764 012721 
026770 004737 


026774 104432 
026776 000002 


027000 104401 


000001 003521 
seeeey eon 
006724 
003534 
104001 
010000 
077777 
000007 


177777 
006744 


003531 


003542 
006724 


177777 
006744 
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.SBTTL TEST S: READ COMPATABILITY/READ UTILITY. 
yee 
; TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 
ee 
BGNTST 
TS:: 
LET RANDOM :B= @1 3SET THE RANDOM OPERATIONS FLAG. 
MOvVB @1,RANDOM 
LET EXPBOT :B= 41 ;SET EXPECT BOT FLAG. 
MOVB #1,EXxPBOT 
JSR PC,SETCH sCMO 1 = SET CHARACTERISTIC. 
JSR PC,SETRW iCMD2*REWIND. 
LET STAFLG :B= 00 ;CLEAR START FLAG 
CLRB STAFLG 
LET (R1)+ := @RDF sCMD3 = READ FORWARD. 
MOV ORDF .CR1)> 
LET (R1)+ := @DATCNT ;SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
MOV @DATCNT,CR1)> 
LET (RL)>+ := 077777 ;SET RECORD COUNT TO MAX FOR WHOLE TAPE 
MOV @77777,CR1)> 
LET (R1)+ := ORANP ;PATTERN = RANDOM. 
MOV ORANP ,CR1)>+ 
LET (R1) := @END sSTORE END OF SEQUENCE CODE IN TABLE. 
MOV SEND .CR1) 
JSR PC ,EXALL sEXECUTE ALL CMOS IN SEQ TBL ON ALL UNITS. 
3 LET ALLEOT :B= ALLEOT + @1 sFLAG TO ALLOW ALL UNITS AT EOT TO READ REV 
3 LET R1 := @CMDSEQ sINIT CMO SEQ TBL POINTER. 
3 LET (R1)+ := ORDR :CMD1 = READ REVERSE. 
3 LET (R1)>+ := @DATCNT 3SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
3 LET (R1i)+ := 077777 sRECORD COUNT = MAX FOR WHOLE TAPE. 
3 LET (R1)+ := ORANP sPATTERN = RANDOM. 
3 LET (R1) := #END sSTORE END OF SEQUENCE CODE IN TABLE. 
3 JSR PC ,EXALL :GO EXECUTE READ REV. OF ENTIRE TAPE. 
LET ALLEOT :B= 00 ;CLEAR ALL UNITS @ EOT FLAG 
CLRB ALLEOT 
LET R1 := @CMDSEQ :TOP OF COMMAND TABLE 
MOV @CMDSEQ,R1 
JSR PC,SETRW s ISSUE A REWIND COMMAND ( TwR) 
LET (R1)+ := #END 3; TERMINATOR 
MOV #END,CR1)> 
JSR PC, ,EXALL ; ISSUE THE REWIND 
EXIT TST 
TRAP CSExIr 
-WORD 1L10037-. 
EVEN 
ENDTST 
L10037;: 


TRAP CSETST 


SEQ 0163 
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READ COMPATABILITY/READ UTILITY. 


027110 
027110 
027110 
027114 
027116 
027122 
027126 
027130 
027130 
027134 
027140 
027144 
027146 
027146 
027152 
027154 
027154 
027160 
027160 
027164 


105037 
112737 


113737 
004737 


013737 
012702 


105037 
012701 
000000 


021127 


012701 
005337 


027616 
027616 
027616 
027616 
027616 
027616 
027616 


003450 
003534 
003542 


177777 


003520 
003526 


003544 


. SBTTL 
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TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


3+ 
; TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


BGNTST 
T6:: 
LET RANDOM :B= 00 
LET EXPBOT :B= 1 
LET IRE :B= PIRE 
JSR PC,SETCH 
LET CMDSEQ+2 := CHAR 
LET R2 := @CMDD 
JSR PC ,PTCMDS 
JSR PC ,.PTCMDS 
JSR PC ,PTCMDS 
JSR PC,PTCMDS 
JSR PC,PTCMDS 
JSR cP TCMOS 
JSR PC ,.PTCMDS 
LET JLOOP := 00 
LET STAFLG :B= 00 
LET R1 := @CMDSEQ 
$BRIMP =0 
3$ WHILE (R1) NE END DO 
CMP @JMP .C.CR1L) 
BNE 6$ 
LET R1 := R1 + 02 
MOV CR1)+,JLOC 
CMP (R1)+,JLOOP 
BNE 1$ 
LET R1 := R1 + #2 
BR 3$ 
1$: LET JLOOP := JLOOP + 1 
LET R1 := @CMDSEQ 
2s: DEC JLOC 


sCLEAR RAMDOM MODE FLAG. 
CLRB RANDOM 
3SET EXPECT BOT FLAG. 
#1,EXPBOT 


MOVB 

:MOVE INHIBIT RFC ERROR REPORT FLAG. 
MOVB PIRE , IRE 

sCMD 1 = SET CHARACTERISTIC. 

sMOVE CHAR CODE FROM P TBL TO SEQ TBL. 
MOV CHAR ,CMOSEQ+2 

sR2 POINTS TO a * IN SOFT P TABLE. 


8 
P TBL TO SEQ TEL. 
sCLEAR JMP CMD a oy COUNT. 


Cu JLOOP 
sCLEAR START FLAG 
STAFLG 


CLRB 
sINIT SEQUENCE TABLE POINTER. 
MOV @CMOSEQ,R1 


sENABLE JMP SUBSTITUTION FOR BR, IF NECESSARY. 
;WHILE THERE ARE a LEFT IN SEQUENCE TBLE: 


504723: 

CMP CR1), END 

BNE .+6 

JMP 50473$ 
:IS THIS A JUMP CMD? 
;68R IF NOT 
sPOINT TO BRF. 

2,R1 


ADD 
sSAVE BRF (LOCATION). 
sHAS LOOP COUNT BE SATISFIED? 
sIF NOT, JMP AGAIN 
:IF SO, ADJUST SEQ POUNTER 

ADD #2,R1 
sAND GO TO NEXT COMMAND. 
sUPDATE THE LOOP COUNT. 


INC JLOOP 
sINIT CMD SEQ TABLE POINTER. 

MOV @CMDSEQ,R1 
sDECR LOCATION COUNTER. 


SEQ 0164 


HARDWARE TESTS 


TEST 6: 
5607 


5631 


5632 


EXECUTE 


027412 
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OPERATOR SELECTED COMMAND SEQUENCE. 
001747 BEQ 3% 

LET R1 := R1 + 410 
062701 000010 
000772 BR 2s 
022711 000020 6$: CMP @OLy.C,CR1) 
001026 4$ 


BNE 
LET R1 :=* RL + 04 
LET TIMES := (R11) 


062701 000004 
011137 003446 


7$: DELAY 10. 
012727 000012 
000000 
013727 002116 
000000 
005367 177772 
001375 
005367 177756 
001367 
005337 003446 DEC TIME2] 
001361 BNE 7$ 

LET R1 := RL «+ 04 

062701 000004 
000713 BR 3$ 
004737 007706 4$: JSR PC, SETUP 


WHILE NCNT LT NCNT1 DO 
023737 003420 003422 


002402 

000137 027550 

004737 007600 JSR PC,CMDAC 
004737 007240 JSR PC,EXSUB 


IF CMDOWRD EQ @GES THEN 
023727 003426 100017 


001402 

000137 027332 

004737 017624 JSR PC, PRXST 
ENDIF 

004737 017706 JSR PC,CKHAE 
LET R2 := @1 

012702 000001 

004737 017300 JSR PC,FIRSTU 


SEQ 0165 


sIF THIS IS THE RIGHT LOCATION TO JMP TO, GO SET UP. 


sIF NOT, UPDATE SEQ POINTER TO NEXT CMD 
ADO #10,R1 


3;68R IF NOT. 
:R1 = LOCATION Con COUNT. 


04,R1 
sSAVE N COUNT. 


MOV (R1), TIME] 
;GO TO SUPER-WAIT 1 MSEC. 
MOV #10. 2(PC)>+ 
-WORD O 
-WORD O 
DEC -6(PC) 
BNE --4 
DEC -22¢(PC) 
BNE --20 
sPOINT TO NEXT CMD. 
ADD 04,R1 


;GO CHECK NEXT CMD. 
3GC SETUP THE COMMAND BLOCK. 
sWHILE THERE seas > REMAINING: 


CMP NCNT ,NCNT1 
BLT .*6 


JMP 50475$ 
sSTORE CMD ASCII IN ERROR MSG. 
sISSUE CMD TO ALL,AWAIT INTS,CHECK STATUS. 
:IF CMD IS GET STATUS THEN: 
CMP 
BEQ .*6 
JMP 50476$ 
sPRINT EXTENDED STATUS REGISTERS. 


768: 
sCHECK HALT AFTER EACH CMD FLAG. 
;SET ALL UNITS ott fo 
Vv 


#1,R2 
sFIND FIRST UNIT. 


WHILE DEVTBL(RS) NE @END DO ; WHILE THERE = UNITS: 


026527 002536 177777 
000137 027454 
032737 000400 003426 
000137 027420 
Ts 000002 003506 


000137 027414 
LET R2 := aC 


77$: 
CMP DEVTBLC( RS). @END 
BNE .*6 


JMP 50500$ 
IF @M0D.CO SETIN CMOWRD THEN ;IF CMD IS — THEN: 


@M0D0 .CO, CMDWRD 
BNE .*6 
50501$ 


JMP 
IF #xXO.BOT NOTSETIN EOTFLGCRS) THEN aif: AT BOT THEN: 


@x0.BOT ,.EOTFLGCRS) 
BEQ .*6 


JMP 50502$ 
;CLEAR EOT/BOT FLAG, 
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027412 005002 CLR Re 

5633 027414 ENOIF 
027414 50502$: 

5634 027414 ELSE sELSE IF CMD IS NOT REVERSE: 

027414 000137 027446 JMP 50503$ 
027420 50501$% 

5635 027420 IF @XO.EOT NOTSETIN EOTFLGC(RS) OR #CMD.CO NOTSETIN CMOWRD T 
027420 032765 000001 003506 BIT @x0.EOT, COTFLOCRS) 
027426 001406 BEG 50504 $ 
027430 032737 000001 003426 BIT @CMD .CO, CMOWRD 
027436 001402 BEQ +6 
027440 000137 027446 JMP 50505$ 
027444 50504$: 

5636 sIF NOT AT EOT OR NOT A MOTION CMD THEN: 

5637 027444 LET R2 := 00 ;CLEAR EOT/BOT FLAG. 

027444 005002 CLR Re 

5638 027446 ENOIF 
027446 50505$: 

5639 027446 ENOIF 
027446 50503$: 

5640 027446 004737 017346 JSR PC,NEXTU sFIND NEXT UNIT 

5641 027452 ENODO ; 
0274S2 000735 BR 50477$% 

027454 50500$: 

5642 027454 IF R2 EQ 01 THEN ;IF ALL UNIT ARE AT EOT/BOT THEN: 
027454 020227 000001 CMP R2,01 
027460 001402 BEQ . +6 
027462 000137 027530 JMP 50506 $ 

5643 027466 LET NCNT1 := NCNT + @1 sFORCE TERMINATION OF COMMAND. 

027466 013737 003420 003422 MOV NCNT ,NCNT1 
027474 005237 003422 INC NCNT1 

5644 027500 LET ALLEOT :B= ALLEOT + #1 ;FLAG ALL UNITS AT EOT/BOT TO ALLOW VERIFY OF DATA 
027500 105237 003531 INCB ALLEOT 

5645 027504 IF CMOLG EQ #2 THEN ;WHEN WRITING IS CURRENT COMMAND 
027504 023727 003434 000002 CMP CMOLG, #2 
027512 001402 BEQ . +6 
027514 000137 027524 JMP 50507$ 

5646 027520 004737 027640 JSR PC, TSWEOT :GO WRITE/READ REV ONE RECORD BEYOND EOT 

5647 027524 ENOIF 
027524 50507$: 

5648 027524 ELSE 
027524 000137 027534 JMP 50510$ 
027530 50506$: 

5649 027530 LET ALLEOT :B= #0 ;WHEN NOT ALL SEOT, CLEAR FLAG 
027530 105037 003531 CLRB ALLEOT 

5650 027534 ENDIF 
027534 505108: 

5651 027534 LET NCNT := NCNT «+ @1 sUPDATE RECORD COUNT. 

027534 005237 003420 INC NCNT 

5652 027540 LET PCMOWD := CMOWRD sSAVE PREVIOUS COMMAND WORD. 

027540 013737 003426 003432 MOV CMODWRD , PCMDWD 

5653 027546 ENDDO 
027546 000647 BR 50474$ 
027550 50475$: 

5654 027550 004737 016142 JSR PC,VFYDAT ;IF LAST CMD WAS A WRITE VERIFY, THEN GO 

5655 ;VERIFY THE LAST N RECORDS OF DATA, 


5656 


HARDWARE 
TEST 6: 


5657 


TESTS 


EXECUTE 


027612 
027612 
027614 


MACRO M1200 21-MAR-84 16:45 P 
OPERATOR SELECTED COMMAND SEQUE 


000137 027110 


177777 
105037 
112737 


012701 
004737 


012711 
004737 


104432 
000130 


003531 
000001 


003542 
006724 


177777 
006744 


003523 


ENDDO 


SBRIMP «= -1 


LET ALLEOT :B= #0 
LET RPTFLG :B= 1 
LET Rl := @CMDSEQ 


AGE 112-3 
NCE. 


L13 


SEQ 0167 


JMP 50472$ 
50473$: 


sTURN OFF JMP SUBSTITUTION —_- ONLY). 


JSR PC, SETRW 


LET (Ri) 
JSR PC,E 


EXIT 


:=* #END 
XALL 


TsT 


sNOT 

CLRB ALLEOT 
sREQUEST A REPORT 

MOVB #1,RPTFLG 
;SET UP THE COMMAND TABLE ADDRESS 


MOV @CMDSEQ,R1 
sSTORE REWIND COMMAND 
s TERMINATE THE TABLE 
#END.CR1) 


MOV 
sISSUE THE REWINDS 


TRAP CSEXIT 
«WORD L10040-. 


HARDWARE 
TEST 6: 


TESTS 
EXECUTE 


027742 


027744 
027744 
027744 
027746 
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OPERATOR SELECTED COMMAND SEQUENCE. 


012203 
005303 
006303 
016321 
012221 
Olee22l 


012221 
000207 


013737 
012737 
012737 


013737 
042737 


013737 
013737 


003644 


003432 
003426 
003434 


002314 
002314 


003430 
002316 


PTCMDS: 


TSWEOT: 


L10040; 


M13 


SEQ 0168 


SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 
THE COMMAND SEQUENCE TABLE 


INPUTS: R2 = POINTER TO SOFT “P” TABLE 
OUTPUTS: 

REGISTERS: R3. 

CALLS: 


LET RS :* (R2)+ - @1 SHIFT +1 


LET (R1)+ := CMOTBLCR3) 


LET (R1)+ :* CR2)+ 
LET (R1)+ := (R2)+ 
LET CR1)+ := (R2)+ 
RTS PC 


#R3 = COMMAND TABLE INDE 
MOV 


DEC 


ASL 
sMOVE COMMAND a 


Vv 
sMOVE #@ OF BYTES. 


MOV 
sMOVE @ OF OPERATIONS. 


MOV 
sMOVE PATTERN CODE. 
MOV 


xX. 
(R2)+,R3 
R3 


R3 
CMDTBLCR3),CR1)+ 
C(R2)+,CR1)+ 
CR2)+,CR1)+ 
CR2)+,CR1)+ 


a: hte TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 


CMDWRD , PCMOWD 
@ROR , CMOWRD 
@4,CMOLG 


CMOWRD , CMOPKT 
@BRF .C,CMOPKT 


CMOPKT ,CMOSAV 
DATARD ,CMDPKT+CP. ADL 


OUTPUTS: 
REGISTERS: 
CALLS: CMDAC , EXSUB , CKHAE 
NOP 
NOP 
JSR PC,EXSUB ;WRITE ONE RECORD BEYOND EOT 
JSR PC, CKHAE 3S0 THAT READ SHORTER STOP DISTANCE 
;SHALL POSITION HEAD IN CLEAN IRG GAP 
LET PCMDWD := CMDWRD ;REPOSITION TAPE ea 
Vv 
LET CMOWRD := @RDR ;BEFORE EXTRA RECORD “se 
Vv 
LET CMOLG := 04 ;BY READING REVERSE om 
Vv 
LET CMDPKT := CMDWRD CLR.BY oBRF.C 
MOV 
BIC 
LET CMDSAV := CMDPKT ; THAT RECORD TO ALLOW - 
v 
LET CMDPKT+CP.ADL := DATARD ;NEXT COMMAND IN Ine 
Vv 
JSR PC,CMDAC ;TABLE TO BE EXECUTED 
JSR PC,EXSUB 
JSR PC, CKHAE 
RTS PC 
EVEN 
ENDTST 


TRAP CSsETST 


N13 
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TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0169 

$712 TITLE PARAMETER CODING 

3724 .SBTTL HARDWARE PARAMETER CODING SECTION 

5734 027746 BGNMOD 

5735 

5736 see 

5737 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

5738 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

5739 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

5740 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

5741 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

5742 ; WITH THE OPERATOR. 

5743 <e 

5744 

5745 027746 BGNHRD 
027746 000024 .WORD L10041-L $HARD/2 

srag 277 LSHARD: : 

5752 027750 GPRMA TS4ADR,0,0, 160002, 177564, YES 
027750 000031 .WORD TSCODE 
027752 027774 “WORD TS4ADR 
027754 160002 :WORD TSLOLIM 
027756 177564 “WORD = TSHILIM 

5753 027760 GPRMD TS4VCT,2,0,777,60,776, YES 
027760 001032 .WORD TSCODE 
027762 030011 “WORD TS4VCT 
027764 000777 “WORD 777 
027766 000060 “WORD TSLOLIM 

5754 027770 000776 “WORD = TSHILIM 

5755 027772 EXIT HRD 
027772 013004 .WORD TSCODE 

5756 

5763 NLIST BEX 

5764 027774 124 123 123 ITS4ADR: .ASCIZ /TSSR ADDRESS/ 

5765 030011 126 105 103 TS4VCT: .ASCIZ /VECTOR/ 

5766 “LIST BEX 

5767 SEVEN 

5768 

5769 030020 ENDHRD 


-EVEN 
030020 L10041: 


PARAMETER CODING MACRO 
SOFTWARE PARAMETER CODING SECTION 


030020 000551 


5794 030036 
5795 030044 
5796 030052 


5797 030060 
5798 030062 


5799 030070 
5800 030076 
5801 030104 


5802 
5803 030112 


B14 
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-SBTTL SOFTWARE PARAMETER CODING SECTION 


LSSOFT:: 


xXFERT 


; 


NEXTSP: 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


CLRM,O, 1, VES 


RRVM,O,400, YES 


MAEM,2,1, VES 


RCVERM,2,400,1ES 


IRECM,4,1,1¥ES 


NE XTSP 
BADTM,4,400, YES 


OINTM,6,1, YES 


IREM,6,400, YES 


RAMM,10,1, VES 


EWPT,12,1,1ES 


SEQ 0170 


«WORD 1 10042 -i. $SOF T/2 


5 255 S55 555 5 585 558 55 883 555 


: 
i 


: 


5 
i 


oor nue 
SOF TWARE 
5804 
5805 
5806 


3 


3 


5810 


5611 


$812 


5613 


5614 


ROARAME T TER CODING SE 


030114 
S3oii6 
030120 


031064 
000001 


005130 
031122 
000400 
127044 


006032 
031141 
000377 
000000 


000001 
077777 


012052 
031226 


000001 
077777 


C14 
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1TON : . 


GPRMD 


GPRMD 


GPRMD 


GPRMO 


CHGM, 12,400, VES 


ENOSP 1 


CHARM, 14,0,377,0,/77, VES 


CMDOM, 16,0, 37, 1,33, YES 


BPCRM,20.0, = 1, 1,D0ATCNT YES 


NUMBM, 22.0, -1,1,77777,vES 


PATTM,24,0,17,0,10, ES 


CMO3M,26,0,37,1,53,¥ES 


BPCRM, 30,0, -1,1,0ATCNT, YES 


NUMBM, 32,0,-1,1,77777, ¥ES 


PATTM, 34,0,17,0,10,1ES 


S553 S5555 S558) G5535 S5583 5583 S558) S508) 9 883 23 


TSLOLIM 


TSLOLIM 


TSLOLIM 


TSLOLIM 


TSLOLIM 
TSHILIM 


TSCODE 
BPCRM 


-1 
TSLOLIM 
TSHILIM 


TSLOLIM 
TSHILIM 


SEQ 0171 


D14 


PARAMETER CODING MACRO M1200 21-MAR-84 16:45 PAGE 116-2 


SOFTWARE PARAMETER CODING SECTION SEG 0172 
030250 8} «WORD TSCODE 
030252 031226 «WORD PATIM 
030254 17 . WORD 17 
030256 000000 «WORD TSLOLIM 
030260 000010 «WORD TSHILIM 

58615 030262 GPRMD  CMD4N,36,0,37,1,33, YES 
030262 017052 «WORD TSCODE 
030264 031246 «WORD CMD4M 
030266 000057 «WORD 37 
039270 000001 WORD T$LOL IM 
030272 000053 . WORD TSHILIM 
5816 030274 GPRMD BPCRM,40,0,-1,1,DATCNT, VES 
030274 020052 «WORD TSCODE 
030276 031174 «WORD B8PCRM 
030300 177777 . WORD -1 
030302 000001 «WORD TS$LOLIM 
030304 010000 WORD TSHILIM 
030306 021052 «WORD TSCODE 
030310 031206 -WORD NUMBM 
030312 177777 . WORD -1 
030314 000001 «WORD TSLOLIM 
030316 077777 . WORD TSHILIM 
5818 030320 GPRMD PATTM,44,0,17,0,10, VES 
030320 022052 «WORD TSCODE 
030322 031226 «WORD PATIM 
030324 000017 . WORD 17 
030326 000000 . WORD TSLOLIM 
030330 000010 . WORD TSHILIM 
5819 030332 GPRMD CMDSM,46,0,37,1,33, YES 
030332 023052 -WORD TSCODE 
030334 031254 . WORD SM 
030336 000037 «WORD 37 
030340 000001 . WORD TSLOLIM 
030342 000033 «WORD TSHILIM 
5820 030344 GPRMO BPCRM,50,.0, -1,1,DATCNT, YES 
030344 024052 -WORD TSCODE 
030346 031174 -WORD B8PCRM 
030350 177777 . WORD -1 
030352 000001 . WORD TS$LOLIM 
030354 010000 -WORD TSHILIM 
5821 030356 GPRMO NUMBM ,52,0,-1,1.77777, VES 
030356 025052 .WORD TSCODE 
030360 031206 -WORD NUMBM 
030362 177777 . WORD -1 
030364 000001 . WORD TSLOLIM 
030366 077777 . WORD TSHILIM 
5822 030370 GPRMD =PAITM,54,0,17,0,10, ES 
030370 026052 «WORD TSCODE 
030372 031226 «WORD PATTM 
030374 000017 . WORD 1? 
030376 000000 . WORD TSLOLIM 
030400 000010 . WORD TSHILIM 
5823 030402 XFER ENDSP2 
030402 002004 . WORD TSCODE 
5824 030404 ENDSP1: XFER ENOSP 


030404 075004 


2 


T$CODE 


PARAMETER CODING MACRO 
SOFTWARE PARAMETER CODING SECTION 


5827 


$828 


5829 


5850 


5831 


5632 


5833 


5834 


027052 
031262 


00000 
077777 


032052 
031226 
000017 


000001 
077777 


036052 
031226 
000017 
000000 
000010 


037052 
031276 


040052 
031174 


E14 


M1200 21-MAR-84 16:45 PAGE 116-5 


ENDSP2; GPRMD 


GPRMD 


GPRMD 


CMD6M,56,0,37,1,33, VES 


BPCRM,60,0, -1, 1,DATCNT, YES 


NUMBM ,,62,0,-1,1,77777, YES 


PATTM,64,0,17,0,10, VES 


CMD7M,66,0,37,1,35, VES 


BPCRM, 70,0, -1,1,DATCNT, YES 


NUMBM, 72.0, “E867 tlits YES 


PATTM, 74,0,17,0,10, YES 


CM08M, 76,0,37,1,33, VES 


BPCRM,100,0,-1,1,D0ATCNT, YES 


o 


5 $5595 55958 55588 55583 S558) S588) 95883 55883 


a5 


a3 


TSLOLIM 


TSLOLIM 
TSHILIM 


TSCODE 
NUMBM 


-1 
TSLOLIM 
TSHILIM 


TSLOLIM 


TSHILIM 


T$CODE 
BPCRM 


-1 
TSLOLIM 
TSHILIM 


TSLOLIM 


TSLOLIM 
TSHILIM 


TSCODE 
BPCRM 


SEQ 0173 


PARAMETER CODING 
SOFTWARE PARAMETER CODING SECTION 


5835 


5836 


5837 
5838 


177777 


000001 
077777 
042052 
031226 
000017 


000000 
000010 


120004 


MA 


GPRMD  NUMBM,102,0,-1,1,77777, VES 


GPRMD 


XFER 


F14 
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PATTM,104,0,17,0,10, VES 


JMPMSG 


g S5588 28005 555 


-1 
TSLOLIM 
TSHILIM 


TSCODE 
NUMBM 


TSHILIM 


T$CODE 
PATIM 


17 
TSLOLIM 
TSHILIM 


TSCODE 


SEQ 0174 


PARAMETER CODING 
SOFTWARE PARAMETER CODING SECTION 


5861 


5863 


5865 


5867 


031226 


100004 


G14 
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EWPT: 


CHGM: 


CHARM: 


CMD2M: 
BPCRM: 


NUMBM : 


PATIM: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


BEX 
/CLEAR COUNTERS/ 


RROR 
INHIBIT RECOVERY/ 
/BAD TAPE SPOT DETECT/ 
/DISABLE INTERRUPTS/ 
— RFC ERROR REPORT/ 


JMPMS2 
/CONTROLLER RAM DUMP, 


ZENABLE EARLY WARNING MESSAGES/ 


/CHANGE CMD SEQ/ 


/CHARACTERISTICS CODE/ 


“cMD/2" 
78RF COUNT/ 


7@ OF OPERATIONS/ 


/PATTERN/ 


. WORD 


TSCODE 


SEQ 0175 


PARAMETER CODING 


MAC 
SOF TWARt PARAMETER CODING SECTION 


5892 


03123: 
031234 


031236 
031236 
031236 


031240 


031270 
031276 


031304 
031304 


124 
116 


031520 
000004 


H14 
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105 
000 


122 


.LIST BEX 
Se: 
EXIT SFT 
. WORD TSCODE 
-NLIST BEX 
CMD3M: .ASCIZ “CMD/3” 
CMD4M: .ASCIZ “CMD/4" 
CMDSM: .ASCIZ “CMD/5” 
CMD6M: .ASCIZ “CMD/6” 
CMD7M: .ASCIZ “CMD/7" 
CMD8M: .ASCIZ “CMD/8"” 
.LIST BEX 
ENOSF T 
-EVEN 


L10042; 


FPSASAAHASASHESHSASSSHASESESEEEESSAEEEEHEEASASESHESEAEEASESEESEAEEEOSELESEEE 
FPASAHSHESAAAASSEAE EASES HESESEESEEEEEAEAASEEEEEEESEEEEEAEAEEHAEEEEEDEEEEEE 
3 PATCH AREA 


PATCH:: .BLKW 64, 
F FASSSSHASASAEAESSEAHESESESEEAEEAEASEEESHAEASEDESESEEEEEEEEEEESAREDEROSEE 
F FSOHEASSEAEEEEHAAEASEEHSESESESEEESEEEESEESEEASEEEEHEEEESESEAEAEEEAEESHASEEEEEEE 


LASTAD 
-EVEN 
WORD TSFREE 


ies “wORD T$SIZE 
. 73 


SEQ 0176 


PARAMETER CODING 


HARD CODED P-TBL 


031510 


000001 


114 
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-SBTTL HARD CODED P-TBL 


zee 
s:DIAG IS PRE-PARAMETERTZED PER TBL 
3 -- 


L10043: 


L10045: 
ENDSE TUP 


- END 


. WORD 
. WORD 


SEQ 0177 


.*) 
L10045-./2-1 


J14 
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SYMBOL TABLE SEQ 0178 
ACK.C = 100000 G BIMSG2 015021 CP.CMD= 000000 G C$SVEC= 000037 EXSUB 007240 G 
ADR = 000020 G BIMSGS 015076 CP.CNT= 000006 G CSTPRI= 000013 ESEND = 002100 
ALLEOT 003531 G BTPT 003516 G CRLF 005275 G DATARD 003416 G ESLOAD= 000035 
ASSEMB= 000010 BTRPT 020446 CRLF SP DATAWT 003414 G FATSM 004455 G 
ATTNM 004417 G BTO 003000 G crcc 003456 G DATCNT= 010000 G FIRSTU 017300 G 
AUDRPM 004727 G BT1 003052 G CvC.C = 040000 G DATRAT 003412 G FMT.CO= 000040 G 
AUTOODM 023450 BT2 003124 G $AU_ = 000052 DEVTBL 002536 G FMT.Ci= 000100 G 
BADTM 030735 BT 003176 G CsAUTO= 000061 OFPTBL 002176 G FTLCNT 003320 G 
BADTSW 002211 G BYTECO= 000403 CSBRK = 000022 OF TSCH= 000040 G FUNRM 004435 G 
BFSEQ 024616 002220 G CS$BSEG= 000004 DIA = 100006 G FSAU = 000015 
BFSEQ@O 024642 031141 CsBSUB= 000002 DIABLK= 003414 G FSAUTO= 000020 
BFSEQ1 024714 CHGFLG 002217 G CSCEFG= 000045 DIACNT= 000020 G FSBGN = 000040 
924726 CHGM 031122 CsCLCK= DIAGMC= FSCLEA= 000007 
BFSEQ3 025020 CHKERR 012160 G CSCLEA= 000012 DINT 002212 G Fs0U) = 000016 
BFSEQ4 025072 CH.EAI= 000040 G Cs$CLOS= 000035 DINTM FSEND = 000041 
BFSEQS 025134 CH.ERI= 000020 G CsCLPi= OlY =« G FSHARD= 000004 
BFSEQ6 025206 CH.ESS= 000200 G CsCVvEC= 000036 DLY.C = 000020 G FsHW = 000013 
BFSEQ7 025240 CKDATA 016664 G CSDCLN= 000044 I * 100013 G FSINIT= 
BFSEQ8 025272 CKDOCNT 017274 Cs000U= 000051 DROPDM 004700 G FSJMP = 000050 
BFSEQ@9 025324 CKOFF 017276 CSORPT= 000024 DROPED 003527 G F$MOD = 000000 
BFSE10 025346 CKHAE 017706 G CsO0U_ = 000053 DROPN 017622 FSMSG = 000011 
BGNFLG= 003464 CKHRTN 017774 CsEDIT= 000003 OROPU 017402 G FSPROT= 000021 
BINC 015722 CLN = 101012 G CSERDF= 000055 DROPUA 017532 FSPWR = 000017 
BITO = 000001 G CLRERR 011656 G CSERHR= 000056 DRORTN 017610 FSRPT = 000012 
BITOO = 000001 G CLRFLG 002204 G CSERRO= OTAERM 005460 G F$SEG = 000003 
BITO1 = 000002 G CLRM 030600 CSERSF= 000054 DTAERS 004761 G F$SOFT= O00005 
BITO2 = 000004 G CMDAC 007600 G CSERSO= 000057 OTAERS 005030 G FS$SRV = 000010 
BITO3 = 000010 G CMDASC 0035752 G CSESCA= 000010 OTAERS 005072 G F$SUB = 000002 
BITO4 = 000020 G 002222 G CSESEG= OTAERS 005113 G FSSW = 000014 
BITOS = 000040 G CMDLG 003434 G CSESUB= 000003 EF .CON= G FSTEST= 000001 
BITO6 = 000100 G CMOPKM 004164 G CSETST= 000001 EF .NEW= 000035 G GCMDA 007654 G 
BITO7 = 000200 G CMDPKT 002314 G CSEXIT= 000032 EF .PWR= 000034 G GENPAT 010264 G 
BITO8 = 000400 G CMDSAV 003430 G CSGETB= 000026 EF .RES= 000037 G = 100017 G 
BITC9 = 001000 G CMDSEQ 003542 G CSGETW= 000027 EF .STA= oG GETSTM 005241 G 
BIT1 = 000002 G CMDSE2 003552 G CSGMAN= 000043 EINC 015730 GIT 010642 
BIT10 = 002000 G CMDTBL 003644 G CSGPHR= 000042 END = 177777G GOWAIT 011274 G 
BIT11 = 004000 G CMOWRD 003426 G C$GPLO= 000030 ENDERF= 003476 GSCPK 002324 G 
BIT12 = 010000 G CMD.CO= 000001 G C$GPRI= 000040 ENOFLG= 003534 GSCNTO= 
BIT13 = 020000 G CMD.Ci= 000002 G CSINIT= 000011 ENDSP 030576 G$DELM= 000372 
BIT14 = 040000 G CMD.C2= 000004 G CSIN.P= 000020 ENDSP1 030404 GSDISP= 0000035 
BIT1S = 100000 G C3= 000010 G CSMANI= 000050 ENOSP2 030406 GSExCP= 000400 
BIT2 = 000004 G CMO .C4= 000020 G C$MEM = 000031 EOTFLG 003506 G G$SHILI= 000002 
BITS = 000010 G CMDOM 8 OF1i56 C$MSG = 000025 ERCVER 002207 G G$LOLI= 000001 
BIT4 = 000020 G CMO3M 031240 CSOPEN= 000034 E 003472 G G$NO = 000000 
BITS = 000040 G CMD4M 8 031246 CSPNTB= 000014 ERRREC 003475 G GSOFFS= 000400 
BIT6 = 000100 G CMDS 86031254 CSPNTF*= 000017 ERS = 100411 G GSOFSI= 000376 
BIT7 = 000200 G Caden 931262 CSPNTS= 000016 ERSFLG 003535 G G$PRMA= 000001 
BIT8 = 000400 G CmO7% 031270 CSPNTX= 000015 EV. =» G G$PRMO= 000002 
BIT9 = 001000 G 8M 031276 CsQIO = 000377 012526 G$PRML= 000000 
BOE = 00 G CMPDAT 003410 G CsRDBU= 000007 EWPRNT 002216 G G$RADA= 000140 
BORERS 015146 G CNT6GN= 002560 CSREFG= 000047 EWPT 031064 G$RADB= 000000 
BPCRM 031174 CNTEND= 003330 CSRESE= 000033 EWRTRY 012632 G G$RADD= 000040 
BRCPK 002330 G CNTLEN= 000550 G CSREVI= 000003 EXALL 006744 G G$RADL= 000120 
BRFCNT 003424 G CODELM 004054 G CSRFLA= 000021 EXARTN 007236 G$RADO= 000020 
BRF.C = 004000 G COUNTE= 050416 CsRPT = 000025 EXCRTN 011272 G$xXFER= 000004 
BTADDR 002550 G CP.ADH= 000004 G CSSEFG= 000046 EXCUTE 010654 G GSYES = 000010 
BIMSG! 014734 CP.ADL= 000002 G CsSPRI= 000041 ExPBOT 003520 G HAE 002206 G 


K14 
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SYMBOL TABLE SEQ 0179 
HAEM 030646 LSCLEA 023602 G L10013 023446 OFLINM 005211 G RANDOM 003521 G 
HALTM 004124 G Lsco 002032 G L10014 023642 ONEFIL= 000001 RANP = 000007 G 
HELP = LSDEPO 002011 G L10015 023706 OPFLAG 003540 G RAN" 025712 
HERE 003340 LSDESC 002140 G L10016 024002 OPP.C = 020000 G RANS ™*42 G 
. G LS$DESP 002076 G L10017 025370 OSAPTS= 000000 RANSC = vi. 9 
HROCNT 003310 G L$DEVP 002060 G L10020 024136 OsAU = 000001 RANW 026012 
IBE = 010000 G LSDISP 002124 G L10021 024162 O$BGNR= 000001 RANWR 025766 
Idu) = 000040 G L$sOLY 002116 G L10022 024202 O$BGNS* 000001 RANWVY 026000 
IER = 020000 G LSOTP 002040 G L10023 024222 Os0U = 000001 RAN1 010644 G 
IE.C = 000200 G LSOTYP 000034 G 110024 024242 OSERRT= RAN2 010646 G 
INIT1O 021664 L$0U 023644 G L10025 024262 OSGNSW= 000001 RAN3 010650 G 
INITiS 022104 L$OUT 002072 G L10026 024302 OSPOIN= 000001 RCVERM 030672 
INIT16 022124 LSDVTY 002166 G L10027 024322 OSSETU= 000001 = 104001 G 
INTFLG 003476 G LSeF 002052 G L10030 024342 PASCNT 003260 G ROR = 104401 G 
INTPRI= 000340 G LSENVI 002044 G L10031 024362 PATCH 031304 G RECCNT 003330 G 
I 003526 G LSETP 002102 G L10032 024420 PATERN 003454 G RECLOG 003471 G 
IREC 002210 G LSEXP1 002046 G L10033 024604 PATRO 010350 G RECRED 006546 
IRECM 030714 LSEXP4 002064 G L10034 026044 PATRI 010406 G RECTAP 006602 G 
IREM 031005 LSEXPS G L10035 026522 PATR2 010426 G RECUD 012012 % 
ISR = 000100 G LSHARD 027750 G L10036 026666 PATRS 010436 G REPEAT= 050236 
IXE = 004000 G L$HIME 002120 G L10037 027000 PATR&4 010462 G RERM 004632 G 
IsAU§ = 000041 LSHPCP 002016 G L10040 027744 PATRS 010474 G RETRY = 050234 
ISAUTO= 000041 LSHPTP 002022 G L10041 030020 PATR6 010506 G RETRYC 003464 G 
ISCLN = 000041 L$Hw 002176 G L10042 031304 PATR7 010526 G REWRT 015322 
Is0u) = 000041 L$ICP 002104 G L10043 031514 PATR& 010652 G RFBC 002660 G 
I = 000041 L$INIT 021664 G L10045 031520 PATTBL 010326 RFCERM 004336 G 
ISINIT= 000041 L$LADP 002026 G = 100012 G PATTM 031226 RFREC 002760 G 
IsMOD = 000041 L$LAST 031510 G MEMOM 023054 PCMOWD 003432 G RFUNR 002770 G 
ISMSG = 000041 L$LOAD 002100 G MISCFG 003537 G PIRE 002213 G RLEXM 004372 G 
IsSPROT= 000040 L$LUN 002074 G -CO= 00 G PNT =* 001000 G RNF == 325401 G 
ISPTAB= 000041 LSMREV 002050 G MOOD.C1= 001000 G PRI =» 002000 G RNOPSC= 177740 G 
ISPWR = 000041 L$NAME 002000 G MOD.C2= 002000 G PRIOO = 000000 G RNR = 105401 G 
IsRPT = 000041 L$PRIO 002042 G MOO0.C3= 004000 G PRIO1 = 000040 G RNYM 004566 G 
ISSEG = 000041 L$PROT 021656 G MOVMSG 011726 G PRIO2 = 000100 G RPF = 105001 G 
I$SSETU= 000041 L$PRT 002112 G MSGCNT= 000016 G PRIO3 = 000140 G RPR = 125001 G 
ISSFT = 000041 LSREPP 002062 G MSGPKA 002506 G PRIO4 = 000200 G RPTCNT 003466 G 
ISSRV = 000041 LSREV 10 G MSGPKT 002340 G PRIOS = 000240 G RPTFLG 003523 G 
I$SUB = 000041 LSRPT 020052 G MSGPKO 002356 G PRIO6 = 000300 G RPTIA 020714 
IsTST = 000041 L$SOFT 030022 G MSGPK1 002374 G PRIO7 = 000340 G RPT16 020771 
JLOC 003452 G L$SPC 002056 G MSGPK2 002412 G PRXST 017624 G RPT1C 021042 
JLOOP 003450 G L$SPCP 002020 G MSGPK3 002430 G PTCMOS 027616 RPT10 021113 
JMP = = 000040 G LSSPTP 002024 G MS .RFC= G PWRFLG 003535 G RPTIE 021341 
JMPMSG 031036 L$STA 002030 G MS .XSO= G RAMDAT 003346 G RPTIF 021217 
JMPMS2 031236 L$Sw 002204 G MS.XS1= 000010 G RAMOUM 014050 G RPT1G 021270 
JMP.C = 000040 G LSTEST 002114 G MS.XS2= 000012 G RAMER 015736 G RPT1II 021460 
J$JMP = 000167 L$TIML 002014 G MS.XS3= 000014 G RAMFHR 005306 RPT1J 021371 
LENMSK 003436 G L$UNIT 002012 G NCMO.C= 177740 G RAMHLD 003342 RPT1K 021451 
LOE = 040000 G L10000 002202 NCNT 003420 G RAMIOP 005365 RRANV 002205 G 
LOG 015436 G 110001 002312 NCNT1 003422 G RAMLIN 005450 RRBC G 
LOOPCT 003525 G L10002 005624 NEXTSP 030070 RAMM 031040 RRECL = 000020 G 
LOT = 000010 G L10003 006550 NEXTU 017346 G RAMPD 005436 RRREC 002740 G 
L$ACP 002110 G 110004 006556 NINUSE= 177774 G RAMRSH 003344 RRUNR 002750 G 
LSAPT 002036 G L10005 006564 NOINTM 004503 G RAMSIZ 003406 © RRVM 030617 
L$AU 023710 G L10006 006572 NRDYM 023544 RAMWRT 002214 G RSL = 001233 G 
L$AUT 002070 G L10007 006600 NSSRM 004353 G RANB 003440 G RS2 = 007622 G 
LS$AUTO 023160 G L10010 021654 NUMBM 031206 RANBC = 153624 G RS3 = 000000 G 
LsCCP 002106 G L10012 023156 NURTY1 005155 G RANCMD 025652 RTLE 014212 G 


L1i4 
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SYMBOL TABLE SEQ 0180 
RTLRTN 014346 TSBA = 002456 G T$$AUT= 010013 WRTYER 003470 G $ISKO = 000001 
RWCPK 002334 G TSC.FC* 177717 G T$SCLE= 010014 WRTYFG 003467 G $ISK1 = 000001 
RWO = 102010 G TSC.TC= 177761 G T$$DAT= 010045 WRUNR 002730 G $ISK2 = 000001 
RWERR 003473 G TSOB 002456 G T$$s0U = 010015 WSSR 011672 G $ISK3 = 000001 
RSSAVE 003460 G TSSR 002466 G TS$$HAR= 010041 WIM * 100011 G $ISK4 = 000001 
SCCNT 003270 G TSSREG 003462 G T$$HW = 010000 WIR * 101011 G $ISKS = 000001 
SCERM 004312 G TSVCT 002476 G T$$INI*= 010012 WIV = 104105 G $ISK6 = 000001 
SCH = 140004 G TS.A16= 000400 G T$$MSG= 010003 WTVERM 004246 G $LOCTA= 177777 
SCHBK 002446 G TS.A17= 001000 G T$sPC = 000001 WTYBRF 014732 $LSTIN= 000001 
SCHCNT= 000010 G TS.NBA= 002000 G T$$PRO= 010011 WTYCMD 014726 $LSTTA= 000001 
SEQEND 003632 G TS.NXM= 004000 G TS$PTA= 010044 WTYWRD 014730 $LVTAG= 050416 
SETCH 006700 G TS.OFL= 000100 G T$$RPT= 010010 X$ALWA= 000000 $NESTL*= 177777 
SETRW 006724 G TS.RMR= 010000 G T$$SOF= 010042 X$FALS= 000040 $NSKO = 000120 
SETUP 007706 G TS.SC = 100000 G T$$SRV= 010007 XSOFFS= 000400 $NSK1 = 000120 
SFF = 105010 G TS.SPE= 020000 G T$$SUB= 0100335 X$TRUE= 000020 $NSK2 = 000110 
SFPTBL 002204 G TS.SSR= 000200 G T$$SW = 010001 X0.B80T= 000002 G $NSK3 = 000110 
SFR = 105410 G TS.UPE= G T$$TES= 010040 x0.EOT= 000001 G $NSK4 « 000110 
SRF = 104010 G TS4ADR 027774 1 024004 G XO.LET= 020000 G $NSKS = 000110 
SRR = 104410 G TS4CL 002526 G T1SWB = 003530 G X0.ONL= 000100 G $NSK6 = 000110 
STAERM 005626 G TS4INT 002516 G 1.1 024014 xO.RLL= 010000 G $SAVE = 

STAER1 006140 TS4INO 006552 G T1.10 024344 xXO.RLS= 040000 G $SAVLE= 177777 
STAER2 006316 TS4IN1 006560 G T1.11 024364 x0. TMK= 100000 G $SELLE= 177777 
STAER3 006375 TS4IN2 566 G T1.12 024450 X1.EWN= 000010 G $SSKO = 050473 
STAERS4 006433 TS4IN3 006574 G T1.2 024140 X2.0PM= 100000 G $TAGLE= 177777 
STAERS 006453 TS4vVCT 030011 T1.3 024164 x3.0CK= 000010 G $TAGNU= 050511 
STAER6 T$ARGC= 000001 T1.4 024204 X3.RNY= 157400 G $TEMP = 000402 
STAER7 0062 TSCODE= 023004 1.5 024224 ZROPAT 010412 $TSKO = 050472 
STAFLG 003534 G TSERRN= 000001 T1.6 024244 $BGNLE= 2 $TSK1 = 050473 
STREAM 003532 G TSEXCP= 000000 T1.7 024264 $BRIMP= 177777 $TSK2 = 050474 
SVCGBL= 000000 TSFLAG= 000041 1.8 024304 $B8SKO = 050234 $TSK3 = 050475 
SVCINS= 000001 TSFREE= 031520 11.9 024324 $BSK1 = 050236 $TSK4 = 050510 
SVCSUB= 000000 T$GMAN= 000000 T2 025372 G $BSK2 = 050416 $TSKS = 050507 
SVCTAG= 000000 TSHILI= 000010 TS 026046 G SERFLG= 000400 $TSK6 = 050503 
SVCTST= TS$LAST= 000001 14 026524 G $F $AND= 000310 $TSK7 = 050505 
SWBFLG 003524 G T$LOLI= 000000 26670 G $F $BAD= 000401 $U = 000403 
SWB.C = 010000 G T$LSYM= 010000 TSWEOT 027640 $F $BLA= 000170 $$ARGC= 000000 
SYMD = 000007 T$LTNO= 027002 G $F $CAS= 000150 $$BYTE= 000403 
SYMS = 000007 TS$NEST= 177777 VAM = 000200 G $F $DEC= 000220 $$CASE= 
S$LSYM= 010000 T$NSO = 000000 UNL #* 100412 G $F $00 = 000340 $$OST = 

TAPCAP 021571 T$NS1 = 000005 UNREC 003474 G $F $FAL= 000405 $$ELOC= 000402 
TCCRA 012612 T$NS2 = 000002 URERM 004654 G $F $GO0= 000400 $sERFL= 

TCCcO 012740 G TSPCNT= 000000 VFEXC 016254 G $F$IF = 000110 $$FLAG= 000001 
TCC1 012762 G TSPTAB= 010044 VFISU 016540 G $F $INC= 000210 $$FROM= 

Tcce 013000 G TSPTHV= 000001 VFYCNT 003300 G $F $LO00= 000200 $sINH = 000403 
Tcc3 013146 G TSP TNU= VFYDAT 016142 G $F $NAM= 000160 $$LOC = 027155 
TCC4 013170 G T$SAVL= 177777 VFYFLG 003522 G $F $NO = 000403 $$LOCN= 

Tccs 013670 G T$SEGL* 177777 VFY.C = 000100 G $F $OR = 000320 $$REG = 177777 
TCC6 013772 G T$SIZE= 000004 WLKZRO 010442 $F $RTI= 000350 $SRETU= 

TCC7 014026 G T$SUBN= 000000 WRBC 002560 G $F $RTN= 000300 $$RTN1= 000000 
TC2RTN 013144 TS$TAGL= 177777 WRECL = G $F $SEL= 000140 $$RTN2= 000000 
TIMEL 003444 G TS$TAGN= 010046 WRITEM 017776 G $F $THE= 000330 $$SRC = 000000 
TIME2 003446 G TSTEMP= WRR = 105005 G $F $TRU= 000404 $sTGSV= 000000 
TOERM 004271 G TSTEST= 000006 WRREC 002720 G $F $UNT= 000130 $$TGS1= 000000 
TOOMM 004542 G T$TSTM= 177777 WRT * 104005 G $F $WHI= 000120 $$TGS2= OO000CO 
TRAPD4 003536 G T$TSTS= 000001 WRTY 014350 G $F $YES= 000402 $$TO = 000000 
ey aoe ey 4 T$sAU = 010016 WRTYCT 003250 G SIFLEV= 177777 $$$TAG= 050000 
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SYMBOL TABLE 


- ABS. 031520 000 
000000 001 
ERRORS DETECTED: 0O 


VIRTUAL MEMORY USED: 62895 WORDS ( 246 PAGES) 
DYNAMIC MEMORY: 19748 WORDS ( 75 PAGES) 
ELAPSED TIME: 00:38:39 

CZTKIA.BIN, CZTKIA/ -SP/CR=SVC/ML , SPMACJ/ML ,CZTKIA 


M14 


SEQ 0181 


